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** ABOUT MICRO-80 ** 
EDITOR: Ian Vagg 

ASSOCIATE EDITORS: 

SOFTWARE: Peter Hartley 

HARDWARE: Edwin Paay 

MICRO-80 is the only Australian monthly magazine devoted entirely to the Tandy 
TRS-80 microcomputer and the Dick Smith System 80. It is available by 
subscription, $2^.00 for 12 months or by mail order at $2.50 per copy. A 
cassette containing all the programs in each month's issue is available for an 
additional $3-50 or a combined annual subscription to both magazine and cassette 
is available for $60.00. Special bulk purchase rates are also available to 
computer shops etc. Please use the form in this issue to order your copy or 
subscription. 

The purpose of MICRO-80 is to publish software and other information to help 
you get the most from your TRS-80 or System 80 and their peripherals. MICRO-80 
is in no way connected with either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay 
royalties. An application form containing full details of how you can use your 
TRS-80 or System 80 to earn some extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one 
in Level - 2 BASIC and one in DISK BASIC (or disk compatible Level 2). We also 
publish Utility programs in Level 2 BASIC and Machine Language. At least every 
second issue has an article on hardware modifications or a constructional 
article for a useful peripheral. In addition, we run articles on programming 
techniques both in Assembly Language and BASIC and we print letters to the 
Editor and new product reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means 
that you must not copy it, except for your own use. This applies to 
photocopying the magazine itself or making copies of programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we 
do our utmost to ensure that they function as described. However, no liability 
can be accepted for the failure of any program or other article to function 
satisfactorily or for any consequential damages arising from their use for any 
purpose whatsoever. 
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**«#* EDITORIAL ***** 
** TANDY VERSUS '80 USERS' GROUPS ** 

We have had the impression for some time now that the Tandy establishment is unhappy about the 
existence of TRS-80 Users groups. Nevertheless, individual store managers have often taken it on 
themselves to foster such groups, even to the extent of staying back late at night to allow their 
premises to be used as a meeting place. Now, there has been a firm directive from Rydalmere 
FORBIDDING Tandy stores from allowing Users' groups to meet on their premises. Henceforth, only 
Tandy Computer Centres are permitted to provide facilities for Tandy Users' Groups. If the manager 
of the local computer centre does not want to provide that service, that's bad luck, the Users' 
Group must fend for itself. We know of at least one such Group which has had to find new, non- 
Tandy premises. 

From one point of view, we think this is a pretty sad state of affairs. Tandy Australia is really 
behaving no differently in this than Radio Shack in the USA. Rather than feeling proud that they 
have been instrumental in creating a whole new industry, not to mention having brought a great deal 
of pleasure to thousands of people, it seems that Tandy resents the intrusion of others into their 
field and would like to keep the whole TRS-80 industry (and sales) to themselves. Acts such as the 
above only serve to alienate established customers and force them to turn to other suppliers, thus 
defeating Tandy's purposes anyway. 

There is however, a bright side to the picture. There are now well over 1000 System 80 Users. We 
know that all the TRS-80 Users groups are only too happy to welcome them and certainly System 80 
Users would gain a lot from joining a Users' group. Recently, we have spoken to number of System 
80 owners and suggested that they might like to attend Users' group meetings. It seems that, where 
Users' group meetings are held in Tandy stores, many System 80 owners do not like to attend, because 
they feel they would be intruding. So, once the displaced Users' groups get over the trauma of 
finding new homes, they might actually thank the Tandy directive because they will almost certainly 
gain many new members with System 80's. 

Whilst we are on the subject of Tandy and its attitudes, elsewhere in this issue, you will 
find an open letter from Peter Hartley to Tandy Australia concerning its attitude towards repairing 
modified TRS-80's. Peter, who has a fairly pithy style of writing anyway, was pretty steamed up 
when he wrote the letter. We'll let you judge whether he is being reasonable or not. It does 
seem, however, that Tandy Australia might be lagging behind Radio Shack in its policy in this 
area. When the Radio Shack lower case mod. kit was first released in the USA, for example, 
Radio Shack charged about $20 to fit it to a customer's CPU. However, if that CPU had already bad 
a non-Radio Shack lower-case mod kit fitted, then he was charged $20 to have the existing kit 
removed and then a further $20 fpr the normal fitting fee. That sounds very much like the practice 
adopted in the case reported by Peter Hartley. We understand that, in the USA, the charge for 
returning the unit tostandarA, no longer applies. How about it Tandy, why not follow the same 
policy here? 

Mai Williams of Tandy Australia wrote us a nice letter recently in which he invited us to contact 
him him to check out any "rumours" etc. . Time has not permitted us to do so before this issue went 
to press but we will certainly offer Mai and Tandy the opportunity to reply to this Editorial and 
Peter's letter, in the next issue. 

** SYSTEM 80 TO TRS-80 ADAPTOR BOARD ** 

The adaptor board to provide a printer port and TRS-80 bus from the System 80 has taken MICR0-80 
PRODUCTS longer to develop than anticipated, not least because of a faulty Z-80 in the test-bed 
System 80 ! Development is now just about complete however and it has successfully driven a printer 
an Exatron Stringy Floppy and Disk drives via the Tandy expansion interface. Deliveries should start 
about the end of September. It has been decided to make the expander unit available either in 
kit form or fully built up form, the kit will come in three stages:- printer only; printer plus 
ESF/Disk signals ; full kit providing memory refresh to the expansion interface. Each kit will 
contain the same PC board, the only difference will be in the components supplied (and the price, 
of course). Full details and prices will be announced in the September issue of MICR0-80. 



ISSUE 9 (AUGUST 1980) : R0-80 PAGE 3 

In the meantime, you can secure early delivery on a $10.00 deposit, refundable in full if you think 
the final price is too high (the full-house unit, built-up and tested will certainly be priced at 
less than $100 ). 

** MORE ABOUT SYSTEM 80 COMPATABILITY ** 

Further to our guidelines in last month's issue, for writing System 80 compatible software, now that 
we have evolved a simple mod. for the System 80 to give software control over the 32 character 
format, item 1 should be amended to read:- 

1. If the largr (32 character) mode is used, then the screen display must look correct in 

both the 32 CHARACTER MODE and the System 80 NORMAL SIZE BUT DOUBLE-SPACED MODE. This 

mode should be enabled by using OUT 255,8 and not CHR$(23). 

** NEW FORMAT ** 

Once again we have improved the format of MICR0-80. This time to allow us to squeeze more in 
without incurring higher printing costs. We hope you like the change* Incidentally, at the time 
of writing, we already have 900 subscribers and the numbers are growing rapidly. Tell your friends 
about us, the more subscribers we have the better the service we can offer. 

** MELBOURNE HOME COMPUTER SHOW ** 

The Melbourne Home Computer Show has been cancelled - or in the words of the promoters, postponed 
indefinitely. This Show was to have taken place from 11-1*4 September and we had booked a stall. 
All is not lost, however. The 8*th World Computer Conference is on in Melbourne in the week 
commencing 13' th October. We have managed to book a stall - No. 169. This will be an enormous 
exhibition, taking the whole of the Melbourne Exhibition Buildings. We look forward to meeting 
many of our Victorian readers. More details in the September issue. 

- 00000 - 

***** 180 USERS' GROUPS ***** 
The following is a list of '80 Users- Groups. If you have a group that is not included here, please 
let us know about it so that we can publish details. Owners of System 80's are welcome at all the 
groups . 

BRISBANE: CONTACT, Mr. Lance Lawes , 21 Rodney Street, LINDUM, U178 

Telephone:- home (07) 396 2998; bus. (07) 268 1191 Ext. 15 

MELBOURNE EASTERN-SUBURBS 

CONTACT: Mr. John Fletcher, 89 0677 between 9 - U 
MEETINGS: 1st Wednesday Tandy Store,(?) 96 Koornang Road, 

of the month Carnegie. 

3rd Wednesday Kingswood College, 

of the month 355 Station St., Box Hill 

DARWIN: CONTACT:- Tony Domigan, P.O. BOX 39086, Winnellie, NT. 5789 

ADELAIDE: CONTACT:- Rod Stevenson, 51 52*41 between 9 - **■ 

- 00000 - 

***** MARKET PLACE ***** 

Market place is available to any reader who has hardware to dispose of. An entry costs nothing - 
you pay MICR0-80 $5 or 5* commission, whichever is the greater - up to a maximum of $30, after the 
goods are sold. The commission is calculated on your advertised price. 

Hear new L1/16K TRS-80, standard monitor includes Personal Finance program. Seldom used. Total 
catalogue price $1016 will sell for only $800. 

Ward, 19 Filmer Ave., PARA HILLS, Adelaide. Tel. (08) 26U 6373 after 5-30 p.m. 
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** G.T. BASIC ** Part One in a series, by Peter G. Hartley. 
INTRODUCTION 

This series is intended to take you right from being a raw beginner and help you to become an 
experienced programmer. Because this series is aimed right at YOU, I would appreciate your letters 
and comments, throughout the series, in order that I can ensure that the articles are what YOU want 
to see. 

Each month I will discuss various commands or functions and, where necessary, comparisons will be 
drawn between the usage of these in Level I, Level II and Disk Basic. Don't expect to get every- 
thing about a particular command or function in a single serving, because this series is aimed at 
producing what I call G.T. BASIC - which is very highly tuned - and we will revisit sections from 
time-to-time, with a view to improving our knowledge and understanding as we progress. Later in 
the series, I will discuss TRSDOS (whatever the current version may be), NEWDOS (primarily because 
this is the DOS of MY choice, offering the majority of the "extras" that I feel should be 
"standard") and MICROSOFT LEVEL III BASIC Where a major difference exists between the TRS-80 and 
the System '80, this will be documented. 

As far as possible I will avoid detailed explanations of the internal workings of the '80 and of 
the finer points of its 'thinking' processes, although some generalised introduction will be made 
in the early articles. 

The arrangement of the series is neither alphabetical, nor by groupings of related functions but 
rather in a sequence that I hope will enable the raw beginner to progress in. an ordered manner 
towards the creation of truly useful programs . I trust that the more experienced of our 
readers will bear with this order of progression? 

From time to time you will come across some of MY rules - called G.T. BASIC RULES. These are NOT 
rules that HAVE to be followed, to make your '80 work. They ARE rules that will lead to smoother 
running, faster executing programs. Follow them to "fine tune" YOUR BASIC. 

** COMMUNICATING WITH THE DUMB »80 ** 

For the purposes of this series, we will regard the '80 as being a very obedient but incredibly 

dumb machine. It is possible to communicate with the '80 through the keyboard, using BASIC 

(Beginners All-purpose Symbolic Instruction Code). 

The '80 understands only about 120 words, but it will implicitly obey these (if at all possible) 

until told to stop. Until you tell it exactly what to do, it is just a very expensive piece of 

junk. 

»* DUMB, STUPID «* 

Because the '80 is really very very stupid, it is unable to make any compensation for human error 
unless it is taught how to do this. (Of course, the *80 cannot do anything much at all until it is 
taught how to do it - and that's what programming is all about!) Therefore, it is necessary that 
our instructions are always totally clear and not able to be misinterpreted. 

Imagine, for a moment, that you are in a cellar, with a walkie-talkie, directing a friend in the 
street. Your friend is pret/ty stupid, and will only do exactly what you tell him. He will also 
ALWAYS do exactly what you tell him. The problem - to get him across a fairly quiet street, 
without being run over. 
"Turn so that you are facing the road" 
"O.K." 

"Move forward to the edge of the pavement" 
"OUCH!!'- 1 ' (Someone just walked into a stobie-pole) 

"If there aren't any obstacles in your path, move forward to the edge of the pavement. Otherwise 
walk a couple of paces up the pavement and try again" 
"O.K." 

"Are you on the edge of the pavement?" 
"yes" 

"Look left, then right, then left again. If you cannot see any cars, cross the road. If you can 
see a car, repeat this instruction. Continue repeating it until you can cross". 
At this point your friend will either walk in front of a semi-trailer, a refuse cart or steam- 
roller (which you failed to warn him about), OR he will spend the next week looking left and right, 
because there is a stationary car right alongside him. And as that is YOUR car and you are waiting 
for him to cross the road - all is lost. 
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That is how it is when you try to communicate with your ' 80. You must learn how your DUMB friend 

thinks, and then you can think like it does. With practice, you will learn to win most of the 

time. 

** THE FOUR OPERATING MODES ** 

The '80 can have up to four separate operating modes. These are: 

** COMMAND MODE (called the CALCULATOR MODE in Level I) 

You are in the COMMAND MODE whenever the last line printed on the screen (which I will refer to as 
the V.D.U. from now on) reads... "> " 

(On the System '80, the first "> " after power-up is not what it appears to be, and you should hit 
NEW LINE to enter COMMAND MODE) 
The ">" symbol is called the "PROMPT" and is the '80's way of telling you that it is wai 
an instruction. 

** EXECUTE MODE 

This mode is entered whenever the '80 is actually following an instruction, which may have been 

stored in memory, or input while in the COMMAND MODE. 

** EDIT MODE (not available in Level I) ^ 

This powerful mode (one of the major reasons why I finally bought an *80) allows you to edit 
program lines efficiently. This mode will be the subject of a later article. 

** MONITOR MODE (not an inbuilt feature of Level I) 

Accessed by typing "SYSTEM" and then pressing ENTER ( LINE FEED on the SYSTEM '80). This 
produces a different PROMPT -sign, "* ? ", and will be discussed separately in a later article. 
This month we will examine the Command Mode, and do some... 

** SIMPLE MATH IN COMMAND/CALCULATOR MO] 
The four basic math functions are simply represented by... 

ADD + 

SUBTRACT 

MULTIPLY * 

DIVIDE / 
We must also remember that if the '80 is to output anything at all to the V.D.U. , it has to be told 
to PRINT. Typing 8+7 and pressing the ENTER or NEW LINE key, will not produce the result you 
want . But . . . 

PRINT 8+7 will prcdu 
15 followed t .. 

READY says "finished..." 

y~ says "ready and waiting..." 

Exactly the same techniques can be used for other mathematical operations. 

** INVISIBLE BRACKETS ** 

The problem is simple enough/'. .Ten oranges at 20 c- pples at 11 cents, plus 6 eggs at 

18 cents. How much? 

Now, we could work out 3 separate multiplication sums, and then one addition - and the answer would 

be correct. But that i^ ... ing for our schocld? . :-a, we come up wj 

(10 oranges at 20c) plus (12 apples at lie) plus (6 eggs at l8c) equals ? 

PRINT( 10*20 )+( 12*11 )+( 6*18) 

now try... PRINT10*20+12*ll+6*l8 

amazing isn't :ur "dumb" *80 put those brackets in for itself - or 

A new problem. ..13 gizmos at 95 cents plus 10? sales tax, plus 11 fl - -. -• plus 

11% sales tax... easy eno u 

•T( 13*95*1. D + ( 11*12*1.17) 

now try... PRINT13*95*1. 1+11*12*1. 17 

Yes again, "dumb" old '80 put the brackets in - or did it? 

So this time we have... 11 thingummies at 52 cents plus 11 gizmos to su! es at 

5 cents. 

PRINT (ll*52)+(ll*5) works, (though inefficiently) as does 

PRINT 11*52+11*5 BUT. when you 

PRINT 11*142+5 
PRINT 142+5*11 
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What happened? Well, the invisible brackets were there, and the problem worked like this... 

(ll*U2)+U 

and this... U2+(U»ll) 

while what you wanted was 11*(U2+U). Why? 

Well, there has to be a set of rules somewhere, and there is one for math. The '80 actually looks 

at a math problem several times, working out different bits and pieces each time. The rule says 

that 1. IF THERE ARE MULTIPLE BRACKETS, WORK OUT THE MIDDLE ONE FIRST, THEN THE NEXT ONE OUTSIDE, 

AND SO ON . . . 
Then, within each bracket, or taking the statement as a whole if there are no brackets or if all 
the bracketed parts have been worked out already... IN ORDER 

2. expotentiation e.g. 12 t k 

3. negations e.g. -X 
k. * and / (left to right) 

5. + and - (left to right) 

6. <> = <= >=<> (left to right) 

7. NOT 

8. AND 

9. OR 

Don't worry that you maybe don't know the meaning of all these long words like "expotentiation", 
because we will discuss all of these before too long. What you should worry about is this... 
Rule 1 says that the '80 will work out the middle bracket first, and then work on out toward the 
out sides of the problem. Now this doesn't matter too much in the tiny shopping list problems that 
we just did, but later on, when you get to be writing more massive problems (where the same 
equation needs to be run several hundred times) the extra time needed will start to become 
important . 

With practice, you will learn where a bracket is NECESSARY, and where you can get away without 
using it, because Rules 2 to 9 determine the order of working out the various parts of the problem. 

* G.T. BASIC RULE ONE - ONLY USE A BRACKET WHEN YOU MUST * « 
a******************************* 

Now, some of you "old hands" out there are probably thinking that this seems a bit unimportant to 
qualify as Rule one. So you may like to time the following two COMMANDS, and see for yourselves. 
TEST ONE 

>FORK=0TO 30000: Z= (1+ (2+ (3+ (U+ (5+6) +7) +8) +9) +10) : NEXT: PRINTZ 
TEST TWO 

> FORK=0TO30000 : Z= 1+2+3+U+5+6+7+8+9+10: NEXT: PRINTZ 
LEVEL I users, can substitute... 
>F.K=0TO 30000: Z= etc. etc. :N.K:P.Z 
The time saving is better than 15%'. 

** NUMERIC VARIABLES ** 

If you've tried those tests, you've just made another discovery, because the '80 will have printed 
"55" before it came back with READY and the PROMPT. But you didn't tell it to print "55"! The 
last part of the instruction was PRINT Z, so where did the "55" come from? 

Back to your algebra again. Z=l+2+3+ 1 *+5+6+7+8+9+10 tells the '80 to store the answer in something 
called "Z". Then, later, you told it to PRINT Z and it printed the value stored there instead of 
printing "Z". 

That something "Z" is called a NUMERIC VARIABLE. You have a lot of numeric variables - all with 
different names.... How many you have will depend on whether you are using Level I or Level II. 
In Level I you have 26 NUMERIC VARIABLES, called A, B, C... right on up to Z, which can all be 
used to store numbers. You also have something called an ARRAY, which will be the subject of 
another article, very soon. 

In Level II you have. . .better sit down for this...3066 VARIABLES just for storing numbers'. But for 
the time being we'll just worry about the 1022 easy ones. 26 of these are the same as in Level I, 
A through to Z. Then there are another 996, starting with AA going right through AZ and on through 
A0 to A9, before starting again with BA, and so on to Z9. Level II also has arrays - they're 
extra and again, will be discussed properly at the appropriate time. 

To put a number into a NUMERIC VARIABLE, the regular BASIC requires that you use the command LET. 

(continued on P. 8) 
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** BETTER BYTES ** a wander through a "bit" of a Jungle conducted by Peter Hartley. 

(Readers' contributions are invited for this column) 

First of all, I must apologise for those readers who have recen* ; software to this 

magazine. While I'm doing my best to find the time to - .1 must again ask for your 

patience and indulge:. : : .0-80 is a wholly i,urt-tirr.e op- 1 

us have to spend time on mundai.' now beei "or a 

complete reorganisation of this area of our operations which, when effected vi next couple 

of weeks, should cure these problems once and for all. As a r< these changes, 

my last edition of KICRO-80 as Software Editor - although you'll be vare 

selections for Septe: still be doil >dly chunk of co 

feat . y association will continue unci 

* GOD LIVES A. ; . * 

An open letter t 
• lemen. 
Does anyone in your organisation possess a cusU 

holly's, polished ports and a shaved head? And does it ever need serv: 

Mechanics' attitudes to such a customised vehicle may range from be ough 

amazement, to pure green envy. But the owner U that vehicl-. 

comes to collect i 11 not find those treasured "extras " " all pa : 

thene bag and thrown in the boot, together with a note say; 

.ID. TO CI- ..." 

So how come that my CPU (ser: 'verything ripped off and the above duly 

ribed on docket :«o. 0715-*? 
What .e Gods of Fort Worth anu Ry the ultimate right of deci-i ns I 

may or may not run on MY TRS-80? 

It took you a couple of years too lc: others use another word 

processor. One that demanc - j owners who use Electric Pencil, or who modify 

■ TRS-80 ' ■• train set, are fOUR customers, entitled to • 

service and not to have their mod -80 's -ated and, most cer*. , ::ot to receive h 

handed crap like the above message. 

When I telephoned to (a) enquire and (b) con polite, firm, courteous disinterest. 

Everything that I heard carried the ,dy believe I xist 

purely for Tandy's bene- eercs , is only r 0-80 

is perfect on the tec: 

^tandar i lit! 

technicians cannot understand comrr. . ied mo;;' 

customer's interests and is trained i: nods? 

However bloo .. , it is still the customer's 

•tamer wai 
>me to the rest of ydO 

" 
oout as subtle as a Ides' Picnic. 

Please will you explain why, before repairs, my one of 

expansion interfaces 

working proper!.. necessary to replace 3 * T^L5367's- aodifical 

have been replaced WHY DOES 

Also, in eas advertising for the speed of your worldwide 

'service', ent was taken to y 

(8108) on July 30th, it was not i by Cor; -tlity Co Why was I 

advised on August 8th that th io customers lose their imports 

afternoons? How come that my syster irently re-dispatch' your warehouse to another 

.y store without paperwork, instead of being sent to Computer Quality Control? 
Since it was outer Quality Control on August 13t] 

back until August 

Why are repairs left sitting in Sydney until the next rota- 
store even when the customer has indicated that he is willing to pay for air-fr '. this 
happened to me ti ast October it sat in Sydney after repair for FIVE days!) 
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Why do you treat your customers this way? 

Finally, about your utterly disgraceful attempts to minimise warranty claims by putting pathetic 
'seals' all over the place. MY TRS-80 is MINE. If I want to open it up and stare at all the magic 
plastic boxes with shiny metal legs all around their edges - then that's my right. If the unit 
fails within a reasonable period of time, the customer has the right (legally enforceable in most 
States) to have it fixed unless there is evidence of improper handling. Breaking a "seal" is NOT 
evidence of improper handling, and I don't believe that plugging sensibly priced RAM could be 
construed as improper handling either. 
Why do you treat your customers this way? 

When you've created a product that scores of thousands of people all over the world love, why do 
you treat them so badly that they develop a hatred for their best friend's creator? Give the 
customer some support! 

Peter Hartley 
Unhappy Customer. 

** SEALS AGAIN'.".' 

You can make a good imitation of the TANDY seal, with a mixture of AIRFIX polystyrene cement, 

cherry red nail polish and AIRFIX orange model paint! 

* TIP OF THE MONTH for situations requiring password protection to determine access levels... 

Open a file, as OPEN. "0".l. "PASSWORD. XYZZY" or any other password you may care to name, and then 

CLOSE. 

In your main program, use the following... (For Disk BASIC only-Ed.) 

10 CLS 

20 INPUT • PASSWORD * ; D* 

30 ONERRORGOTO70 

■40 D*= ' PASSWORD . " +D* 

50 OPEN - I* . l.D* 

60 GOTO NNNN1 

70 CLS 

80 PRINT "PASSWORD REJECTED* 

S0 PRINT 'RESTRICTED ACCESS OHLY" 

100 RE5UNE NNNN2 

nm <M 1 CLOSE . . . 

NNNN2 CLOSE 

** SUPERDOS - by Peter Hartley. 

Finally got my podgie pinkies wrapped around the long awaited NEWDOS 80 last week and started a 
whole new learning experience. The manual is very detailed - about 200 pages - well indexed, and 
needs careful study because NEWDOS 80 is a total rewrite and not much related to NEWD0S+, let alone 
TRSDOS. Although I'm still learning how to drive this package, I can say that it probably 
represents the single greatest advance in hobby and small-business computing since the TRS-80. It 
is immensely powerful, giving one many of the features normally found only on our bigger mainframe 

brothers. .■ 

Doubtless I'll be raving on at more length in later issues, but, Just to whet your appetite... 
Random files without having to use FIELD, LSET, RSET, CUT, CUS, CUD, MKI , MKS, MKD... No more 
worrying about 255 byte sectors. . .Write up to UK to disk in a single PUT. . .Mix or match 35, Uo, 80 
96 or what-have-you track drives - and the system will remember what is where... One of your disk 
drives a bit unreliable? Change the number of times that the disk controller will "look again" 

before demanding that error message... 

- 00000 - 

Continued from P. 6 (G.T. BASIC) 

E.G. LET Z=55. The BASIC used in the '80, however, does not make this demand, and a simple Z=55 
will put the value in. PRINT Z, will get it back and print it on the V.D.U. But the value 55 is 
still stored in Z. To change it, you have to put a new value in...Z=T7 for example. 
Since the '80 knows what Z is worth, it only seems reasonable that it would understand instructions 
like Z=Z*1, Z=Z*2, Z=Z+TT+Z*2 and so on and, of course, it does. If you're a beginner, why not 
try a few of these for yourself, following them with PRINT Z (Just to satisfy yourself that they 
work ) ? 

Next month we will look at one of the power-house instructions of BASIC - the amazing FOR / NEXT 
LOOP, and run some tests to see how good the '80 is at remembering things in the COMMAND MODE. We 
will also show some of the old hands how they can save a whole mess of run-time while using FOR / 
NEXT LOOPS, and introduce G.T. BASIC RULE TWO. 
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■ 

- 

ran 

1 

-rpose of 

. . . 

:e cheeky renarks (via t] .ay) 

lals co:. 
chess dub, Boris' d by experienced player proarious. 

Club players con : !ivi duals were easy prey to 

Boris's snide remarks and feeble excuses. ' =c r i s wou ld say infuriatingly . 

I once went out for sever rig Boris running, to be asked pathetically on my return "Are 

you still there?" These couldhave become tiresome if repeated, but I was constantly 

amazed at the seemingly inexhaustible reservoir of Boris's wit. 



ISSUE 9 (AUGUST 1980) :R0-80 PAGE 10 

Boris's play however was seriously flawed. His ability at corresponding response times appeared to 
be comparable to Chess Challenger and, in fact, they had drawn a match of lh games, but there was a 
certain rigidity about Boris's style of play which made him predictable and invited stereotyped 
attacking strategies. It is essential for any program which cannot be modified or updated, as Boris 
was then, to have varied treatments of similar positions, if it is not to be tired of. Boris is 
now equipped with a plug-in module facility which enables up-dates of the program to be inserted 
into the basic memory as improvements are made, which is an excellent idea. 

A month after these initial comparisons were made, Chess Challenger improved their model 10 and 
added a voice program to rename it the 'Voice Challenge Ls was an improvement all round with 
stronger play on every level, a greatly expanded book of opening repertoires and provision for 
selecting the opening against which to play. The one hour and 2h hour levels had disappeared in 
favour of an infinite level which could be halted at any time to play 'best so far', or allowed to 
continue until search exhausted - up to several days. 

The development program for Boris meanwhile was taken over by the authors of Sargon and all comments 
regarding Sargon from hereon can be taken .toi include Boris with its additional facility for updating 
so that Boris is now the machine for Sargon-squashers who neither have a mini-computer nor are 
interested in ping-pong. 

The authors of Sargon have now produced four programs with inbuilt obsolescence rendering each 
preceding program out-of-date about every six months. It is a tribute to their zeal and dedication 
that this formerly amateur husband and wife team have been able to effect substantial improvement 
in a short space of time with each successive Sargon and stay ahead of the leap-frogging 
competition. 

The Sargon 2.5 probably represents the state-of-the-art in cassette programs for mini-computers and 
I believe it has just become available in Australia. It is claimed that this program has a playir.p; 
strength of 1600 (good A Reserve Adelaide Club strength) at the three minute level. This rate of 
play has become the yardstick by which computer play is judged and computer tournaments conducted, 
and it seems valid that if computers are to be taken seriously in chess, they must then be assessed 
on the basis of their results within a reasonable time frame. Hence the battle for chess-computer 
supremacy has led to initiatives on two separate fronts undertaken by different schools of thought 
mobilising different hardware. Programmers of the mainframe computers have aimed to maintain the 
advantage they hold through sheer speed of operation by increasing still further the number of 
positions evaluated per second, and hence the depth of search or number of plys. Since the number 
of positions looked at increases astronomically with each successive ply, one machine would need to 
perform enormously faster than another in a given time span to search an extra ply. The mainframe 
specialists claim a deeper see.rch by several plys over the micros, giving them an unassailable 
advantage. They feel it is simply a question of horsepower. 

However, their rivals in the field of micro computers point out that this is not the way the chess 
master reasons and depth of search is useless without correct evaluation of positional advantage. 
The Spracklens with Sargon and other of their competitors are ingeniously devising ways of 
eliminating wasteful searching I .e program with correct thematic responses to thousands 

of typical middle-game and end-game, board positions. This enables positional- judgment as developed 
by chess masters based on recognition of familiar positions and pruning of non-productive lines of 
play from the search. This must be the correct approach if computers are ever to compete with 
masters ( they cannot , yet ) . 

This approach is starting to yield impressive results and Sargon 3.0 (not yet marketed) gave strong 
competition to mainframe entries year's North American Chess Championship almost beating 
second placegetter Belle. Undoubtedly, the me programmers must pursue this line of research 
if they are to maintain their lead over the micro-processors, and it has been adopted alreii 
some extent by Chess U.9 the World Computer Chess Champion. 

There is no doubt in my mind that Sargon 2.5 is already a worthy opponent for the majority of 
serious players of club strength and a program which would probably elude defeat by a talented 
beginner at the game for at least a year, and possibly longer, if the present rate of progress is 

sustained. 

Computers do not yet figure as serious contenders in master play as I have mentioned, but Chess U.9 
is currently rated at 2100 which would enable it to contend for the South Australian Champion.-, 
(but not win it). It should be realised that there is still a vast gap between this level of 
expert play and international master an trength. There are about 150 grandmasters 

in the world. When one considers the number of Ph.D's produced by any large university in a year, 
the merit of this title will be realised. One must also appreciate the significance and prestige 
of chess in many other parts of the world. There are no Australian chess grandmasters. In the 
Soviet Union, where chess masters are accorded a high status and income, there are over U million 
registered players. (continued on P. Uo) 
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ASSEMBLY LANGUAGE PROGRAMMING 
by E.R. PAAY 

The previous parts of this series have discussed most of the commands and instructions available to 
the machine language programmer and some examples have been given on how to use these instructions. 
By now the reader should have enough knowledge to write machine language programs. This part there- 
fore shall contain a general discussion and several commonly used subroutines. 
THE EDITOR ASSEMBLER. 

At this stage it might be useful to mention the role of the editor assembler as we get numerous 
requests from readers asking what exactly an editor assembler does. The editor part of the 
assembler allows the user to type in the source code and edit it in very much the same manner as 
BASIC allows us to edit lines etc. After typing in the source (or loading it from tape) the 
assembler then allows the user to "assemble" the source code into the object code or machine 
language, which is the actual program which can be executed by the CPU. Apart from the functions 
mentioned it will also save both source code and object code on tape or disk whatever the case may 
be. There are several different editor assembler programs available for the TRS-80 user. First 
there is the Tandy version which is written by Micro-soft ;this is a good assembler which is 
relatively easy to use, however, it has been superseded with a new version called editor assembler 
plus. This program has all the features of the old version but it allows the use of MACRO'S and it 
can assemble straight into memory which saves tedious tape dumps while debugging. Included with 
this editor assembler package is also a very powerful debugger program which allows single stepping 
through programs etc. This means that this assembler is much better than the old Tandy version and 
I would therefore recommend it for the tape bound TRS-80 user (or SYSTEM-80 user). For the disk 
user there is the disk assembler by Micro-soft. This is a MACRO assembler also but is somewhat 
tedious to use as the source has to be written using an editor called EDIT80. When that has been 
done, you have to exit the editor which will then dump the source to disk. After that has been 
done, the assembler has to be called up which is a separate program. This will then create yet 
another file on disk. When it is finished the linking loader has to be called up which is a 
separate program again, to create the final program which can be run. This is a lot of work but, 
at the moment, it is the only readily available disk assembler with MACRO capabilities that I know 
of. It might be worth mentioning that a disk editor assembler is included with all NEWDOS + disk 
operating packages. However, this is the same as the Tandy tape version with disk capabilities 
added. I myself use the NEWDOS version for short simple programs and the Micro-soft disk assembler 
for long complicated programs. 
MACRO'S. 

Some readers probably don't know what a MACRO is so a short description shall follow. A MACRO 
automatically generates assembly language instructions using user supplied parameters. A MACRO is 
in some respects similar to a subroutine except that whenever a MACRO name is placed in the program 
the source code associated with that MACRO is placed in line with the program at the location where 
the MACRO name is placed. For example: 



100 


SCAN 


MACRO 


ADDRS 


110 




LD 


A, (ADDRS*? 


120 




OB 


A 


130 




JF 


NZ, DECODE 


iUo 




EN DM 





Line 100 tells the assembler that a MACRO named SCAN is being defined ADDRS and is a dummy label 
used by the macro. Line 130 tells the assembler that this is the end of the MACRO. This means 
that the code between line 100 and line 130 is going to be the actual MACRO definition. Of course 
many more lines and dummy labels can be used in an actual MACRO. The purpose of the example above 
is to scan the keyboard. Now if the above MACRO is used in a program it might look like this: 
200 SCAN 380 1H ;scan row one. 

300 SCAN 3802H ;scan row two. 

1*00 SCAN 380l*H ;scan row three. 

After the program is assembled the MACRO'S will have been expanded and it will look like this: 

0200 
1*5E2 3A 01 38 
1*5E5 B7 
U5E6 20 OF 

0300 



SCAN 


380 1H 


LD 


A,(3801H) 




A 


.!-•: 


NZ , DECODE 


SCAB 


3802H 





mcso- 


ID 


A,(3802H) 


OR 


A 


JR 


NZ, DECODE 


SCAM 


380UH 


LD 


A,(380UH) 


OB 


A 


JR 


HZ .DECODE 
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I45E8 3A 02 38 
U5EB B7 
U5EC 20 09 

OUOO 
U5EE 3A 01* 38 
U5F1 B7 
1*5F2 20 03 

It can be seen how only three lines were expanded to 9 lines, and the dummy label was replaced 
with the actual parameter following the MACRO name. Of course the macro was kept short for the 
actual example. Normally a MACRO might be much longer using a range of parameters. 

PROGRAM PREPARATION. 

Preparation before writing a machine language program is mportant, much more so than with 

BASIC. Many amateur BASIC programmers will 'type in their programs without drawing flowcharts by 

few lines at a time &i t as they go along. Although you will never end up 

. a good pro- way, it can be done. approach with assembly language will 

usua". :. disaster. For good quality assembly language programs the following procedure 

Before 1 .re in y 

ire on paper. E as to the approach you ar- take, 

he flowchart. Draw a general flowchart first, naming each block and • 

flowcha: cessary. Initially keep your mind ill pror 

get bogged down with det< . - handle these later wl icks of the 

expanded in1 own flowcharts. With some experience, you 
pro* . easier IC and anguage . :i start 

your program. Avoid usi:. your ma -s of your progs- 

labels and CALL them, structure your programs as much as possible - don't make a spaghetti bowl 
prog- h right through the program. Also, it is very imports: 

-omments LL FORGi iave done when you are debur 

hen you want to alter some* -.s I said be for- , .our lab- 

ngful so you know what they are without having 1 k them up. 

SUBROUTINES. 

.is section several commonly needed routines are listed which can be used by the reader as sub- 
routines to make life somewhat easier. Firs . ve a HEX to ASCII decimal conversion routine, a 
16 bit value is passed in the HL register pair, DE should point to the last byte of a 5 byte buffer 
into which a 5 digit ASCII decimal result will be placed. All registers are used; when it returns 

111 point to the start of the buffer. No line numbers are given. They will have to be added 
by the user. 
HEXASC 



LP10 



LP11 



STARTH 



NREST 



com 



LD 


C,5 


LD 


B,10 


PUSH 
X0R 


BC 

* 
A 


LD 


C,11H 


JR 


STARTH 


SUB 


B 


JP 


P, NREST 


ADD 


A,B 


ADD 


HL,HL 


RLA 




JR 


C0NT 


ADD 


HL,HL 


RLA 




INC 


HL 


DEC 


C 


JR 


NZ,LP11 


RRA 




POP 


BC 


ADD 


A,30H 


LD 


DE ,A 
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DEC 


DE 


DEC 


C 


JR 


NZ.LP10 


RET 





The next program does the opposite. It converts a string of ASCII decimal digits into a hex value 
and places the result in the DE register pair. On entry IX must point to the start of the ASCII 
string; all registers are saved except HL and DE. 



ASCHEX 



LOOP 



ASCO 



PUSH 


DE 


LD 


DE,0 


LD 


A,(lX+0) 


SUB 


30H 


ADD 


A,E 


JF 


NC,ASCO 


INC 


D 


LD 


E,A 


POP 


BC 


DEC 


B 


RET 


z 


PUSH 


BC 


EX 


DL\HL 


ADD 


HL,HL 


PUSH 


HL 


ADD 


HL.HL 


ADD 


HL,HL 


POP 


BC 


ADD 


HL,BC 


EX 


DE.HL 


INC 


IX 


JR 


LOOP 



The next routine will convert HEX to ASCII HEX so that it can be displayed on the display. The 
A register contains the HEX byte and the DE register pair will contain the two ASCII characters on 
return. All other registers are saved. 
ASCCON 



C INV 



CNT10 



PUSH 


AF 


AND 


OFOH 


RRCA 




RRCA 




RRCA 




RRCA 




CALL 


CONV 


LD 


D,A -■ 


POP 


AF 


AND 


OFH 


CALL 


CONV 


LD 


E,A 


RET 




CP 


OAH 


JR 


C.CNT10 


ADD 


A, 7 


ADD 


A,30H 


RET 





Finally we have a routine to convert ASCII HEX to binary HEX. DE should contain the two ASCII 
characters; the result will be returned in the A register. All registers are saved except DE and 









HEXCON LD 




A,D 


CALL 




CONVRT 


RLCA 






RLCA 






Continued on 


P. 


18 
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*««»« ESF porum by Charlie Bartlett ***** 

Welcome to the first ESF FORUM. Over the next few months we will delve into the mysteries of the 
ESF, and anyone that has not bought one yet will notice by reading these columns that the ESF is 
not "JUST A FAST CASSETTE DECK". 

** PROGRAM CHAINING ** 

One of the features of the ESF is its ability to chain BASIC programs together and pass variable 
values from program to program. This can be very useful for instance if you have a 32K program (or 
larger) and a l6K machine, because you can break the program down into two (or more) modules and 
then have your program load and run them separately while passing the values from module to module. 
This is called overlaying. The only thing to consider when caaining is that for the variable 
values to remain intact they must stay clear of the overlayed BASIC programs. This can be done in 
one of two ways. Either the first program must be longer than the second or the variable pointer 
must be poked into high memory out of the way. The first way is easy and doesn't need further 
explanation, but for the second way, you need to know what to POKE and where. We will demonstrate 
this using the program "HOUSEHOLD ACCOUNTS", which was on the free software tape or is listed in 
its original form in the May edition. If we are going to chain a program we may as well go for 
broke, so we will break this program down into ELEVEN modules. It could, of course, be done in 
less, but this is more of a lesson in chaining, and besides which, by making the modules as small 
as we can, it is possible to increase the size of the buffer. 

Also with the DATA I/O program loaded in there is not enough room left in memory for this program 
to run in one piece anyway. Examine the program listing for module one... 

5 POKE1663 1 * .7 1 * 

This is the statement that pokes the variable pointer up into high memory. The formula for arriving 

at the desired value is.. 

The value present with your FIRST module loaded plus the number of K of your LARGEST module times U . 

So if your largest module was UK. then the statement in your program would appear thus... 

5 POKEl663U,PEEK(l663M+l6 

One other thing to remember when chaining programs that are to pass .variable values between each 

other is that if there are any CLEAR or Dimension statements in the first module then this module 

must be loaded first and then not loaded again, which is why the POKE, CLEAR and DIM statements in 

this program are in module one, and if you examine the listing you will see that the program never 

returns to this point. 

Program line number 15 is a POKE to disable the break key except when the ESF is running. This is 

to prevent accidental interruption to the program while live data is present. It is a good idea to 

incorporate this into any program when you don't want to lose data. 

15 P0KEl6396,23 

To enable the break key when you have finished with the program, without having to switch off, 

POKEl6396,201 

When all the modules are loaded onto a wafer, (it will need to be a 20 ft. wafer), don't remove the 

reflective sticker as you would normally do as the subroutine in the gSAVE and SLOAD modules uses 

this to sense if the program wafer is inserted or not. Leave it to the program to tell you when to 

insert or remove wafers. To start the program, FIRST load the DATA I/O wafer. Then insert the 

Household Accounts wafer and type gLOADl. The ESF will first of all load in module 1 and then with 

no action on your part, will load in module 2, which is the MENU. The program will then load in 

the modules as you select them from the menu... It's as simple as that. See program listing on p. 36 



«««*« SPECIAL OFFER - EXATRON STRINGY FLOPPY $352.50 incl. p&p ***** 
All Exatron Stringy Floppies sold by MICRO-80 will include the special chained version of HOUSEHOLD 
ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this program is powerful enough to 
perform many of the accounting functions in a small business. Remember, the ESF comes complete 
with a comprehensive manual, a 2 way bus-extender cable, its own power supply and 10 wafers of mixec^ 
length. One wafer contains the Data Input /Output program and another the HOUSEHOLD ACCOUNTS 
program. 

CAN'T MAKE UP YOUR MIND ABOUT THE ESF? 

Then send in $5-00 for a copy of the manual. We will refund your $5.00 IN FULL when you purchase 

an ESF. 
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LETTERS TO THE EDITOR 
From: L.R. McDonald, Qld. 

Could you please make some comment in your magazine with regards to the suitability of Dick Smith 
disk drives used with the TRS-80 as I have heard that some people have had considerable trouble with 
them not working properly with the TRS-80. Does NEWDOS 80 get around this problem? Do the programs 
that you supply on disk only suit the Tandy disk drives. 

fWe too have heard of some people having trouble with PERTEK (i.e. Dick Smith) disk drives in 
TRS-80's. However, if set up correctly, they should work without any trouble. We should know, 
between us, the Editorial staff are running 6 of these drives and we have mixed them successfully 
with a Shugart drive which was the original brand supplied by Tandy. The clue to setting up 
PERTEK drives is in section 3-5.3 on page 18 of the manual supplied with each drive. Use the 
following procedure : 

1) Turn the drive upside down with the rear (open end) of the drive towards you. Unscrew the four 
screws holding the aluminium bottom plate and remove it. 

2) This will reveal the component side of a printed circuit board. Towards the bottom right hand 
corner of the board you will find a U way DIP switch (Si). It is generally bright red with 
white rockers and stands out from the other components. You must set this switch to correspond 
with the drive number you wish this drive to be, i.e. if it is to be drive then switch 1 must 

be closed and all the others open. Section 3.5-3 tells you the settings to use 
3) Now look along the row of integrated circuits which runs up the centre of the PC boarb. 

Between the second IC from the bottom (U8) and the short IC to its left (U6), there are two 
plated-through holes in the PC board, very close together, with a very fine track joining them. 
This is track DC mentioned in Section 3.5-3. Take a sharp razor knife and cut this track. 
Don't overdo it and cut through the PC board but do make sure that the track is completely 
severed and that there are no slivers of metal still making contact across it. (Cutting this 
track allows the switch (Si) to do its thing). 
k) Now, lying on a diagonal line between U8 and SI, is the resistor pack U2. It is generally a 

bright blue and stands out from the I.C's around it. This pack should only be left in place in 
the highest numbered drive on the cable, i.e. if you have three drives connected (0, 1 and 2) 
then the resistor pack should be left in drive 2 and removed from drives and 1. If you are 
running only one drive then it must be set up as drive and the resistor pack should be left IN. 

If you follow the above procedure, then you should have no problems in using PERTEK disk drives on 
a TRS-80. Incidentally, most disk drives need to be set up in the same way on a TRS-80. 

As far as NEWDOS 80 is concerned, there is no problem left for it to solve. What it will do, 
however, is enable you to use a PERTEK drive to its full ho track (100K byte) capacity. And, what 
is more, you could use it as a UO track drive on the same cable as a Tandy 35 track drive or a 
Micropolis 77 track drive or both! 

All the programs supplied on diek by us will run on a standard 35 track drive. This means that they 
will also run on a UO track drive. - Ed) 

From: C. Stobert. Victoria. 

Our System 80 was purchased between receipt of your May and June issues. Consequently, the 

differences in tone between your unequivocal praise in the May issue and the product review "rip-in" 

in June, is disturbing. I had hoped for something better having just been stung by Tandy for over 

$26 for repairs only six weeks out of warranty. 

The System 80 specification quotes a video output of 2V p/p whilst the Tandy spec, states l.Uv. I 

would like to use my System 80 with a Tandy monitor but am concerned that the use of an input 

voltage 50% higher than specified might affect the monitor. 

We are not able to run "Super Mastermind" from your software cassette (Mr. Stobert also has a TRS-80 

Level I UK machine - Ed). After loading the PRINT MEM produces -239 and LIST shows the program to 

run out somewhere in the middle of the instructions. 

(We do seem to have ruffled a few feathers over the June review of the System 80, not least in the 
Dick Smith camp. First, to deal with the apparent about-face. At the time of producing the May 
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issue we had not sighted a System 80 and that was clear from our comments. We congratulated the 
Dick Smith organisation for persevering with the project over such a long time and applauded the 
extra competition it has introduced to the Australian market place. We still feel that way. Dick 
Smith Electronics played a significant part in bringing the System 80 to fruition and deserves to 
be applauded for it. By the June issue we had our own System 80 and had had time to examine it in 
detail and put it through its paces. If you reread the June review, as I have just done, I think 
you will find that it is, overall, positive about the System 80. It certainly expresses disappoint- 
ment that a new system which had been widely advertised to be compatible with the TRS-80 turned out 
not to be in some significant aspects (missing keys, different 32 character format, different 
printer addressing). Certainly, we criticised the internal cassette deck for its poor performance 
and everything we have heard since has confirmed that view. We now have a significant number of 
subscribers who own System 80's. At least 70% of those who have written, phoned or visited us, are 
having loading problems with their cassette decks. For our part, we are recording all our tapes at 
higher levels to cater for the System 80. ' No small matters these, particularly to suppliers such 
as ourselves. The lack of compatibility has cost us time and money. But that review also said 
things such as (p. 10) "Now, even that sum puts the Dick Smith System 80 in a very, very favourable 

light 1 ', and page 9 "The rest of the internal construction was excellent the System 80 appeared 

to be a solidly constricted piece of equipment" etc. Incidentally, our review was inaccurate in 

one respect; we said that only the Z80 was in a socket. In fact, the Level II ROM's and the memory 

chips are also in sockets - sorry about that, it must have been the late hour when we examined the 

internals. 

I might say that a similar review of the TRS-80 written before the XRXIII modification was 

developed would have been equally as critical and there is certainly evidence of penny pinching in 

that machine too. Solder-coated edge contacts on the CPU board (the System 80 has gold-plated 

contacts) - no data separator in the floppy disk controller etc. So there you have it, the perfect 

micro-computer is yet to be built! 

As far as the different video output levels are concerned, the System 80 will not harm the TRS-80 

monitor. Its output voltage is well within the tolerance of the monitor. We have been running a 

TRS-80 monitor with our System 80 for some months now and no problejns. 

Super Mastermind belongs in our "Red Faces" department. When we first published it in the December 

issue, we explained that several lines needed to be deleted to run it in a UK machine, then we made 

the master tape with those lines in. Sorry about that. If any reader would like the UK version, 

please return your free cassette and we will replace it. Needless to say, we have now. reworked 

the master cassette. - Ed) 



SYSTEM 80 - 32 CHARACTERS PER LINE UNDER SOFTWARE CONTROL 

On the TRS-80, double sized characters (same height, double length) on the CRT display are selected 
by the basic commands 

1. 'PRINT CHR$(23) 
and 2. OUT 255, 8 

The PRINT CHR$(23) command when executed, sets a flag in location I6UU5 to indicate that the user 
has set the 32 character per line format. If the OUT 255, 8 instruction is executed, then the 
flag in location l6,UU5 will not be set. Each time a character is to be printed to the screen, 
the status of location l6,UU5 is checked. If it is 0, then the 6U character/ line format is set, 
and if it is 8 then the 32 character/line format is set. 
TRS-80 owners may like to try the following short programs: 

A. 10 OUT 255,8 
20 END. 

B. 10 OUT 255,8 

15 FOR A= to 2000: NEXT A 

20 END 

C. 10 POKE 16 UU5,8 
20 END 

D. 10 POKE I6UU5, 
20 END 
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No effect will be seen on executing program A as it executes very fast and on returning to command 

mode the computer will check the status of location 16UU5 before printing "READY". As the "OUT" 

instruction will not affect this location, the screen format is reset to 6U characters/line. 

Program B introduces a delay so the 32 character/line format can be viewed for approximately five 

seconds before reverting to the 6U character/line format. 

Programs C and D manipulate directly the format flag so that when the next character is printed on 

the screen the format is set accordingly. 

The System '80 differs quite markedly from the TRS-80 in this area. Firstly, the hardware 

associated with port address 255 (FFH) bit line 3, has been deleted. In its place is a hard wired 

switch called "VIDEO CUT". When activated, double-sized characters appear, and may be disabled by 

releasing the switch. No software control of this facility is provided. 

Executing the basic command PRINT CHR$(23) will cause the System '80 to print strings with a space 

inserted between each character from the next print statement in the program. Another way of 

doing this is by executing the command "POKE I6UU5, 8", which sets the format flag. 

The display reverts to the normal single spacing format for print statements when the basic 

command CLS OR POKE l6UU5,0 is executed. 

The hardware modification described later in this article will allow the following modes of 

operation when the basic statement is executed. 

1. POKE 16U5,8 selects double spacing mode. Each print statement executed after this command 
will have a space inserted between each character. Operates in both 32 and 6U character per 
line format. 

2. POKE l6Ul45,0 de-activates double spacing mode. 

3. OUT 255, 8 selects 32 character/line format. 
k. OUT 255,0 selects 6U character/ line format. 

5. PRINT CHR$(23) is equivalent to the combination OUT 255,8 : POKE l6UU5,8 

6. CLS is equivalent to the combination OUT 255,0 : POKE l6UU5,0. 

N.B. « The video cut switch when activated will select the 32 character/line format and override 
any software selected format . 
*» On returning to basic command mode (i.e. after a program end statement is encountered) the 
6U character/line format will be selected if the flag in location 16UU5 is not set at 8. 
If this flag is set at 8 then the double spacing mode is automatically set and hence the 
greeting R E A D Y. 

MODIFICATION PROCEDURE 
You will require 

- A Philips head screw driver 

- A low power ( UOW) soldering iron 

- Some fine multicore solder" 

- A diode IN 9lU, IN UlU8 or equivalent 

- Some plastic-coated flexible wire. 

1. Switch off the System '80 and remove the plug from the power point. 

2! Remove the System '80 moulded top cover by undoing the screws located on the bottom of the unit. 
Very, very carefully unscrew the keyboard unit and shift the upper right-hand side to expose the 
circuit board located between the CPU board and the cassette unit. This board has the connector 
for the video output, the second cassette drive and the video cut switch. 
3. Install the two links and the diode as shown in the diagram. The diode must be installed with 
the cathode (indicated by a black or a white bar at one end of the device) connected to the 
7ULS175 1C pin 6. Check that no solder dags are shorting the 1C pins before powering on. 
U. Type in the following basic program: 
10 PRINT CHR$(23) 
20 END 
When run, all characters on the screen should be double-sized and READY should be printed 

double spaced. 
5. If it does not work., check your wiring, and ask someone who knows about electronic circuitry to 

look it over. 
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Now replace the keyboard and cover and check out the following demonstration 

10 PRINT CHR$(23) 

20 PRINT "THIS IS PRINT CHR$(23)" 

30 GOSUB 130 

1*0 POKE 161»U5,0 

50 PRINT "THIS IS NOT DOUBLE SPACED AFTER POKING ZERO" 

55 GOSUB 130 

60 OUT 255,0 

70 PRINT "THE FORMAT IS NOW DEFAULT" 

80 GOSUB 130 

90 OUT 255,8 

100 PRINT "DOUBLE SIZE" 

110 GOSUB 130 

120 GOTO 150 

130 FOR A=0 TO 2000: NEXT A 

lUO RET 

150 REM* will revert to 6k characters/line as * 

160 REM« location I6UU5 is ZERO" 

170 END 



program: 






VIDEO 



VIDEO 

socxer 



cTSfisE-rrt 

SOCKET 




Continued from page 13 (Ass'y lang. prog.) 



XJNVRT 



RLCA 




RLCA 




PUSH 


AF 


LD 


A,E 


CALL 


CONVRT 


LD 


E,A 


POP 


AF 


OR 


E 


RET 




SUB 


30H 


CP 


OAH 


RET 


C 


SUB 


7 


RET 





>7***^ 



5*^32 



3 74*6157 



:>74i£0* 



374^>VD 



574CSV 









>>U4l57 












3741s 157 






>"2i02 




>*t*>367 
























3^H5/S7 






3 2J02. 




^ 


® - 1 






>74A€>J75 

■ mr 1 


37^5132 




3 1102 














J 


1 




>-74AiiS7 




374LSI53 




»r- 


~y 








3 2.102. . 




>74&\U> 













>74<tt 



?JV*I74 



J 2102. 



>7»u>n T 



>>W>93 



> 2S13 



J 2102 



374CS20 



SYSTEM 80 LAYOUT 



With these h subroutines it should be quite easy to write assembly language programs for the TRS-80. 
All these types of routines and more, are available as ROM calls in the TRS-80 and SYSTEM 80 but 
some of these are quite involved and I recommend that the serious assembly language programmer 
should buy the LEVEL II ROM REFERENCE MANUAL from MICRO-80. The only two other routines needed are 
two I/O routines to scan the keyboard and to print information to the video display. These two can 
be easily accessed in the ROM, all registers are saved and the character to be printed should be in 
the A register, the scanning routine will return with the character in the A register, A will 
contain zero if no key was pressed while the keyboard was being scanned. 
To scan the keyboard use : CALL 35BH 
To print a character use : CALL 33AH 
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LEVEL I PLUS LEVEL II - for TRS-80 Version G Board. 

You will recall that this modification, as previously published, would not function on G series 
boards. Last month we advised those readers concerned to (a) remove the Level I chip, and (b) make 
good the cut p.c.b. track and (c) wait for this article. The good news is that the modified version 
works well, and that it looks as though it would, in fact, work on all versions of the Model I 
TRS-80 produced to date. 

Follow all the instructions given in the June issue article, except for cutting the p.c.b. track, 
and observe the following changes... 

** The Level I ROM now plugs into Z33 and not Z3 1 * as previously, so this will need to be inserted 
first, with the Level II ROM connector cable plugged into Z3^, and not Z33 as previously. 

** Numbering anti-clockwise from the indent marker, with the pins pointing away from you, pin 20 of 
the Level I ROM is not to be inserted into socket Z33, but should be left "hanging out". 

** Switch wiring points 1 and U are now wired to the original intended destination of the green 
(enabling) Level II ROM* wire (see illustration on page 25 of the June Issue). 

** Switch wiring point 5 is now wired directly to pin 20 of the Level I ROM. 

It seems that some Level I units are still coming out with the "old" two-chip ROM pack. Sorry, but 
it starts to become impractical with these units, and if you are so blessed, we can only suggest 
that you either "swop" with a non-MICRO 80 reader, or bribe your local Tandy manager. 

We understand that there are some Level II units coming out with a two-chip ROM pack, plugged 
directly into Z33 and Z3**, and the same advice must apply to you, too. 

** REMEMBER - always power down before switching from one level to the other. There is a distinct 
possibility that, for a fraction of a second during change-over, both ROM sets will be enabled, and 
utter chaos will ensue. 

P.H. 



* DECBINHEX ■ by Phil Erudat . 

Believing that a little education rarely goes astray, we present two gems this month dealing with 
the relationship between the three numeric bases used by we micro-buffs. Phil's Level I effort 1.8 
well worthwhile for all you Level I'ers out there. 



1 REM ♦•*♦« DEC BIN HEX - BY PHIL EREAUT »••«• 

Z REM 110 PARK ST. NOONFE PONDG UIC. C03) 370 8473 

3 PEM 

19 V-0 

20 CLS 

2S P. A. 17, 'DECIMAL T BINARY t HFXIDECIMAL" 

30 P. "THE PROGRAM WILL CONVERT FROM DEC IMAL . BINARY, OR HEX. INPUTS' 

31 P. 'IT WILL GIVE A SINGLE PRINT Or THE INITIAL CONVERSION" 

32 P. "OR. A CONTINUING PRINT INCREMENTING THE DECIMAL VALUE " 

33 P. 
3*4 P-0 

35 IN.'l - DECIMAL INPUT, 2 - BINARY INPUT, 3 - HEX. INPUT";P 

3G P. 

37 IN. 'DO YOU REQUIRE A CONTINUING PRINT.. 1-NO. . 2-YES ";V 

39 CLS 

40 ON P G. 44,500,700 

43 P.'SOPRY THE NUMBER MUST BE BETWEEN (0 AND 65535) 

44 P. " " 

45 IN. "ENTER DECIMAL NUMBER (0 - 65535 )...*; Q 
50 IF( Q<0) + tQ>65535) CLS: G. 43 

55 F.X=1 TO 1G:A(X)-0:N.X 

57 REM ♦ DECIMAL TO BINARY .READ INTO AN ARRAY 

60 Z-Q:L-1 

CONTINUED ON P. 2k 
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MICRO-80 PRODUCT! 



NEWDOS 80 IS IN STO,' 

This long-awaited disk operating system has 
now arrived and has already been delivered to 
many eager customers around Australia. It is 
every bit as good as it was cracked-up to be 
and MICRO-80 has decided to standardise on it 
for its own systems. Here are Just a few of 
the many things you can do with NEWDOS 80 
which is upward compatible with TRSDOS and 
NEWDOS + (i.e. TRSDOS and NEWDOS + programs 
will run on NEWDOS 80 but the reverse is not 
necessarily so). 

* New BASIC commands that support variable , 
record lengths up to 1*095 bytes long. 

* Mix or match disk drives. Supports any 
track count from 18 to 80. Use 35, **0, 77 
or 80 track 5" mini disk drives or 8" disk 
drives, OR ANY C0MBINA1 . 

* A security boot-up for BASIC or machine code 
application programs. User never sees 
"D0SREADY" or "READY" and is unable to 
"BREAK", clear screen or issue any direct 
BASIC statements including "LIST". 

* New editing commands that allow program 
lines to be deleted' from one location and 
moved to another or to allow the dupli- 
cation of a program line with the deletion 
of the original. 

* Enchanced and improved RENUMBER that allows 
relocation of subroutines. 

* Powerful program chaining. 

* Device handling for routing to display and 
printer simultaneously. 

* CDE function; simultaneous striking of the 
C, D and E keys will allow user to enter a 
mini-DOS to perform some DOS commands with- 
out disturbing the resident program. 

* Includes Superzap 3.0 (improved, machine 
language version of Superzap) and all 
Apparat 2.1 utilities. 



NEWDOS + 

35 TRACK VERSION 

1*0 TRACK VERSION 



$99-00 incl. p&p 
$110.00 incl. p&p 



NEWDOS by Apparat, is the third generation 
disk operating system for your TRS-80. NEWDOS 
corrects over 70 errors and omissions in 
TRSDOS and Disk BASIC yet the two are com- 
pletely compatible. Going from TRSDOS to 
NEWDOS is 'like going from Level I to Level II, 
more power, more convenience, greater speed. 
NEWDOS + includes the following utilities: 

* Editor-assembler for Disk 

* Disassembler (z80 machine code) 

* LM offset - allows transfers of any system 
tape to a 
relocated. 



tape to a Disk file - automatically 
sic 



* BASIC 1 - Lets you convert your computer 
back to Level I 

* LVIDKSL - Saves and loads BASIC 1 programs 
to disk 

* SUPERZAP - display/print /modify any location 
in memory or on disk. 

* RENUMBER BASIC program. 

and much more . ___ 



** SCOTCH BRAND COMPUTING CASSETTES 


## 


Thesesuper-quality cassettes are now 


back in 


stock. 




C-10 pack of 10 $26.00 incl. 


p&p 


c-30 pack of 10 $28.00 incl. 


p&p 



1*0 PIN EDGE CONNECTORS $12.30 +50c. p&p 

These difficult to obtain connectors are 
essential if you are working on a hardware 
project requiring connection to the TANDY bus. 
The connector attaches to a Uo way ribbon 
cable and plugs straight on to the back of your 
TRS-80 . 



***** MICR0P0LIS 77 TRACK DISK DRIVES ***** 
These fabulous MICROPOLIS disk drives have 
more than double the storage capacity of the 
standard 35 track drives. 

** DD-7S only $775 incl. p&p ** 
77 track MICROPOLIS drive complete with cable 
for four drives, power supply, chassis and 
includes NEWDOS 80. 

** DD-7 only $61*9 incl. p&p ** 
Same as above but no cable or NEWDOS 80. 

** DC-1* only $1*5 incl. p&p ** 
1* drive connector cable - suitable for any 
disk drives. 



***** DISKETTE BREAKTHROUGH ***** 






We have changed our brand of diskettes 


but 




not our price. We now sell genuine 






BASF DISKETTES 






SINGLE SIDE/SINGLE DENSITY $1*5.00 per 


box 


of 


10 incl. p&p. 






DOUBLE SIDE/DOUBLE DENSITY $59-00 per 


box 


of 


10 incl. p&p. 







ISSUE 9 (AUGUST 1980) 



MICR0-80 



PAGE 21 



***** SOFTWARE BY AUSTRALIA!! AUTHORS ***** 



All our software is suitable for either the 
SYSTEM 80 or the TRS-80 (with the exception of 
Me Think it Micro Mazin vol. 2). Tapes are 
specially recorded at high levels to ensure 
satisfactory loading into SYSTEM 80's. 

•• UTILITIES ** 

S-KEY by Edwin Paay $15-95 plus 50c. p&p 
S-KEY is a complete keyboard driver routine 
for the TRS-80 and becomes part of the Level 
II basic interpreter. With S-KEY loaded the 
user will have many new features not available 
with the standard machine. 
S-KEY features: 

* S-KEY will provide an auto repeat for all 
the keys on the keyboard. If any key is 
held down longer than about half a second 
the key will repeat until it is released. 

* Graphic symbols can be typed direct from the 
keyboard, this includes all 6k graphic 
symbols available from the TRS-80. 

* S-KEY allows text, basic commands and/or 
graphics to be defined to shifted keys. 
This will make programming much easier as 

whole, commands and statements can be recalled 
by typing shift and a letter 

* Because S-KEY allows graphics to be typed 
directly from the keyboard, animation and 
fast graphics are easily implemented by 
typing the appropriate graphic symbols 
directly into PRINT statements. 

* S-KEY will allow the user to LIST a program 
with PRINT statements containing graphics, 
properly. S-KEY does this by intercepting 
the LIST routine when necessary. 

* S-KEY allows the user to list an updated 
list of the shift key entry's to the video 
display or line printer. 

* S-KEY can be disabled and enabled when 
required. This allows oth^r routines which 
take control of the keyboard to run with 
S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive docu- 
mentation. 

BMON by Edwin Paay $19-95 plus 50 c. p&p 
THE ULTIMATE HIGH MEMORY BASIC MONITOR L2/16K 
and up. 

Our own personnel refuse to write BASIC with- 
out first loading this amazing machine 
language utility program into high memory! 
BMON Renumbers; Displays Basic programs on the 
screen while they are still loading; Tells you 
the memory locations of the program Just 
loaded; Lets you stop a load part-way through; 
Merges two programs, with automatic 



renumbering of the second so as to prevent any 
clashes of line numbers; Recovers your program 
even though you did type NEW: Makes one 
program invisible while you work on a second 
(saves hours of cassette time!); Lists all the 
variables used in the program; Makes SYSTEM 
tapes; Lets you Edit memory directly .. .the list 
goes on and on. Cassette comes with l6K, 32K 
and U8K versions, ready to load. Can anyone 
afford NOT to have BMON? 



: UCATIONAL ** 

RPN CALCULATOR (L2/16K & L2/32K) $2^.95 +50c 

p&p. 
Give the computer the power of a $650 reverse 
polish notation calculator with U5 functions 
and selectable accuracy of 8 or 16 digits. 
The main stack and registers are continuously 
displayed, whilst the menu is always instantly 
accessible without disturbing any calculations 
or register values. The cassette NOW comes 
with both the 16K and 32K versions, the latter 
giving you the additional power of a 
programmable calculator. Comes with a very 
comprehensive 15 page manual, which includes 
instructions to load and modify the 32K pro- 
grammable version to run in l6K. Whether for 
everyday or occasional use, this package will 
prove invaluable, and turn your '80 into a very| 
powerful instrument. 

TOUCHTYPE (L2/UK) $19-95 + 50c. p&p. 
An interactive, 22 lesson typing course which 
uses the computer's keyboard and screen to 
reach you to type rapidly and accurately, and 
a massive cassette data dump to control your 
ress. The computer checks for accuracy, 
and sets times exercises to check your pro- 
gress. If you have to look at each key before 
you press it, or only use two fingers, then 
this program, plus a little perseverance, will 
do some amazing things to your typing speed. 



** GAMES ** 

UB0AT $7.50 plus 50c. p&p. 
Real time simulation at its best! Comes with 
working sonar-screen and periscope, a full 
rack of torpedos, plenty of targets, working 
fuel and battery meters, helpful Mothership 
for high-sea reprovisioning, and even has 
emergency radio for that terrible moment when 
the depth-charges put your crew at risk. 
Requires Level II/16K. ' 



ISSUE 9 (AUGUST 1980) 



MICR0-80 



PAGE 22 



SPACE INVADERS $7-50 plus 50c. p&p. 

Much improved version of this arcade favourite 
with redesigned laser and cannon blasts, high- 
speed cannon, 50 roving drone targets, 10 
motherships and heaps of fun for all. Level II 
with UK and l6K versions on this cassette. 

MMM- vol.1 and vol.2. $7-50 each plus 50c. p&p 
Two, three-game cassettes from that master of 
TRS-80 graphics, Charlie Bartlett. Vol.1 
brings you INDY 500, an exciting road race 
that gets faster and faster the longer you 
play, SUBHUNT in which your warship blows up, 
unfortunate little submarines all over the 
place, and KNIEVEL (as in motorcycle, ramp and 
buses) . 

Vol.2 (not System 80 compatible) contains TANK, 
a two player battle of speed and skill, THIEF 
(steal an old man's hoard of loot then escape 
from the labyrinth before he gets you) , and 
SHOOTOUT (a Mexican style high-noon for two). 

K CHASE (L2/16K and up) 

$7.50 + 50c. pip 

An absorbing game in which you save Dr Who 

from pursuing Daleks . The better you play, the 

harder it gets (and vice versa). Infinite 

range of play levels from HARD to UTTERLY 

IMPOSSIBLE, and comes complete with messages 

of praise and mediocre insults. (If you are 

really bad enough at this game, it actually 

refuses to play any more!) ENTHRALLING FUN 

FOR ALL. 

***** GREEN SCREEN SIMULATOR ***** 
$19-95 incl p&p 
The GREEN SCREEN SIMULATOR is made from a deep 
green perspex, cut and curved to fit your 
monitor. It improves contrast and is much more| 
restful to the eyes than the normal grey and 
white image. All the editorial staff of 
MICRO-80 (including Scrooge,,Mc. Hartley) are 
now using GREEN SCREEN SIMULATORS on their own 
monitors. Please make sure to specify whether 
you have an old (squarish) or a new (rounded) 
style monitor when ordering. 



***** MICRO-80 PRODUCTS ***** 
Use ORDER FORM on page kl 



***** mp! DISK DRIVES ***** 

MPI is the second largest manufacturer of 
disk drives in the world. They use the same 
form of head control as on 8" drives and con- 
sequently, they have the fastest track-to- 
track access time available: 5 msec. All 
their drives are capable of single or double 
density operation. (Double-density operation 
requires the installation of a special PC 
board in the expansion interfacs. This board 
is not yet available in Australia). As well 
as the single head Uo track disk drive, MPI 
also make a dual-head kO track disk drive. To 
all intents and purposes , a dual-head drive 
behaves like two single-head drives but is 
much cheaper. 

Our MPI drives are supplied bare, set up to 
operate with the TRS-80. They can be used 
bare or a simple cabinet made up from sheet 
metal. They require the use of a separate 
power supply giving 5 volt at 0.7 amp and 12 
volt at 1 amp,. All drives are sold with a 90 
day warranty and service is available through 
MICRO-80 PRODUCTS. 

MPI SINGLE HEAD DISK DRIVE only $339 incl. p&p 
MPI DOUBLE HEAD DISK DRIVE only $449 incl. p&p 
Ring first to check availability. 



***** BOOKS ***** 

LEVEL II ROM REFERENCE MANUAL $2U.95 plus 
$1.20 p&p. 

Over 70 pages packed full of useful infor- 
mation and sample programs. Applies to both 
TRS-80 and SYSTEM 80. 

TRS-80 DISK AND OTHER MYSTERIES $2l*.95 plus 
$1.20 p&p. 

The hottest selling TRS-80 book in the I . . 
Disk file structures revealed, DOS's compared 
and explained, how to recover lost files, how 
to rebuild crashed directories - this is a 
MUST for the serious Disk user and is a 
perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II $16.95 plus $1.20 p&p. 
The second hottest selling TRS-80/ SYSTEM 80 
book in the U.S.A. Written by David Lien, the 
author of the TRS-80 Level I handbook, this 
book teaches you, step-by- step, how to get the 
most from your Level II machine. 

INTRODUCTION TO T-BUG $12 ..50 plus $1.20 p&p. 
This book describes in detail how to use 
Tandy's T-BUG monitor program. Each command 
is explained and discussed in detail with 
examples. A must for the T-BUG user. 
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** PROGRAMS FROM CREATIVE COMPUTING ** 

** ADVENTURE PROGRAMS ** 
ADVENTURELAND (L2/16K) $lU.95 + 50c. p&p 

Try to find and take treasures as you explore a 
fantasy world. The computer acts as your 
puppet and carries out your two word commands. 
Sometimes you will need special objects to do 
certain things, often a little magic is 
necessary. Absorbing and challenging. 

THE COUNT ADVENTURE (L2/16K) 

Si 1 *. 95 + 50c. p&p 

In this adventure, you awaken in a bed in a 
castle in Transylvania. You don't know why 
you are there but you'd better solve the puzzle 
before it's too late. Just as enthralling as 
ADVENTURELAND but blood thirstier! 

** GAMES ** 
AIR TRAFFIC CONTROLLER (L2/ 

$7.95 + 50c. p&p 
One of the hottest selling games in the USA, 
you are the Air Traffic Controller and the 
monitor is your radar screen. Bring down the 
aircraft safely and avoid raid-air collisions. 

Z Chess (L2/16K) $19-95 + 50c 

Seven levels of ability, contains all standard 
moves including castling and En Passant 
captures. It can play either black or white 
and its versatile board set-up mode allows 
specific positions to be played as desired. 

SPACE GAMES (L2/16K) $7.95 + 50c. p&p 

k Space games including ULTRA-TREK, ROMULAN, 
STARWARS and STARLANES. Fast, real-time 
graphics. 

STRATEGY GAMES (L2/L- $7.95 + 50c. p&p 

5 Strategy games including TUNNEL VISION (find 
your way out of a 3-D maze), EVASION - a 
the deadly snake), JIGSAW (put the puzzle to- 
gether), THE MASTERS (Golf on the '80 for up 
to U players), MOTOR RACING (Compete against 
the computer at Indy or the Grand Prix). 

GRAPHING PACKAGE (L2/16K) $7-95 + 50c. p&p 
A set of 6 utility programs which allow you to 
draw BAR GRAPHS, GRAPH CARTESIAN COORDINATES, 
carry out POLAR GRAPHING, PARAMETRIC GRAPH! 
LINEAR REGRESSION and PARABOLIC REGRESSION. 



** PROGRAMS BY MICROSOFT »* 



EDITOR ASSEMBLER PLUS (L2/16K) 

$39-95 plus $1.20 p&p 
A much improved editor-assembler and debup,/ 
monitor for L2/16K TRS-80 or SYSTEM 80. 
Assembles directly into memory, supports macros 
and conditional assembly, includes new 
commands-substitute, move, copy and extend. 

LEVEL III BASIC $59-95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives 
advanced graphics, automatic renumb* :.■:■ 

stroke instructions (shift-key entries) 
keyboard debounce, suitable for L2/16K and up 
(Not Disk BASIC)" 

ADVENTURE ON DISK J5-95 plus $1.20 

This is the original ADV -me adapted 

for the TRS-80.. fills an entire 

diskette. Endless variety and challenge as you| 
seek to rise to the level of Grand Master. 
Until you gain skill, there are whole areas of 
the cave that you cannot enter. (Requires 32K 
One Disk) 

DISK EDITOR ASSEMBLER 
•B30 ONLY $107 plus $2.00 p&p| 

Supports Macros, linking loader, editor, cross 
references. See Assembly language programming 
Lcle in August MICR0-80 for further details. 
j ires 32K One Disk) 

BASIC COM $208 plus $2.00 p&p 

Converts Disk BASIC programs to machine code, 
automatically. A compiled program runs, on 
average, 3-10 times faster than the original 
BASIC program and is much more difficult to 

e. Note: MICROSOFT have temporarily with-| 
drawn this program for reworking to make it 
less memory-hungry. The revised version 
should be available about the and of September. 
All existing owners will receive updated 
Ions at no cost to them. Don't wait 
though, send in your orders now and be near 

ront of the queue. 



***** 16K MEMORY EXPANSION KIT ***** 

only $97 incl. p&p. 
These are prime, branded, 200 ns (yes, 200 
nanosecond) chips. You will pay much more 
elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts 
is also required to upgrade the CPU memory in 
the TRS-80 - these cost an additional $1j.00. 
All kits come complete with full, step-by-step 
instructions which include labelled photo- 
graphs. No soldering is required. You do not 
have to be an experienced electronic technician 
to instal them. 
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65 


fl-INTfZ/2) 




70 


B-Z-(A*2) 




75 


A(L)-B 




ee 


Z-A 




85 


IF A-0 G.99 




90 


L-L+l 




95 


G.65 




99 


IF U>2 G. 120 




100 


P. A. 278, '(BINARY MULTIPLIERS)' 




102 


P.A.330,*3 1* 




104 


P.P. 394, -2684 2 1* 




105 


P.P. 456, '7 3 10 5 2 1" 




107 


P.A.S22,*6 899 4215 263 


1* 


108 


P.n.586,*8 426 8426 842 


6 8 4 2 


110 


F.X-0 TO 63:P. --";:N.X 




115 


REM • READ AND PRINT 16 BINARY BIGITS PROM 


ARRAY 


120 


P. "BINARY*: 




122 


P.T.C8)| " ; 




J 25 


F.N-16 TO 1 S. -1 




127 


IF(( INT(N^4 )*4-N)-0) P.":"; 




130 


P.A(N): 




135 


N.N 




140 


P. :P.O; 




145 


REM •CP.LC.CD - 1 fO 15) FOR EACH GROUP OF 


4 BINARY DIGITS 


149 


L-21 




150 


1-13: J-16 




153 


E-0:M-1 




155 


F.X-I TO J 




160 


T-ACX)*M 




165 


D-T+E 




170 


E-D 




175 


M-M*2 




1G0 


N.X 




185 


A<L)=D 




186 


L-L+l 




187 


I-I-4:J-J-4 




190 


IF Kl G.200 




195 


G.153 




197 


REM* CALC.AND PRINT DECIMAL U.>LUE OF EACH 


BINARY GROUP 


200 


H-4096:G-0 




202 


F.L-21 TO 24 




234 


W«A(L)«H 




206 


P.T.( 12+G);W; 




208 


H-H/'16:G-6+13 




210 


N.L 




212 


P. 




213 


REM • CALC.AND PRINT HEX. DIGITS 




215 


P. 'HEX -"; 




216 


G-0 




217 


F.L-21 TO 24 




220 


IF A(L)>9 GOS.380:G.223 




221 


GOS. 350: G. 22*4 




223 


P.T.U5+G);A«; :G.230 




224 


P.T.C 14+G);F; 




230 


G-G+13 




235 


N.L 




240 


P. 




245 


F.X-0 TO 64:P. '-*; :N.X 




246 


IF U>2 G.270 




250 


X-16 




255 


F.Y-15 TO 29:S.(X,Y):N.Y 




260 


IF X>110 G.278 




26G 


X-X+26 




267 


G.255 




270 


X-16 




271 


F.Y-30 TO 41:S.(X,Y):N.Y 




272 


IF X>110 G.280 




273 


X-X+26 




274 


G.271 




280 


IF U>2 G.328 




281 


X-24 




285 


F.Y-15 TO 32:S.(X,Y):N.Y 




290 


X-X+6 




295 


ir X-42 X-50:G.285 
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380 IF »68 X=7S:G.285 

385 IF X-94 X-102:G.285 

310 IF X-120 G.320 

315 G.285 

320 P. A. 789, " «-"; :P. A.802, " + '; :P.A.81S, " + " ; 

330 P.A.960,"'; 

332 IF(U>-2)*<0<65535) U-U* 1:0-Q+1: 6. SS 

334 P. P. 370," *; 

535 IN. "PRESS ENTER FOR NEXT CONVERSION* ; AS: G. 20 

340 DATA e,1.2,3,4,5,6,7,8,9,A,B,C.D,E,F 

345 REM ♦ SUB'S TO REFiD HEX. VALUES 

350 RESTORE 

355 F.X-1 TO ACDU 

360 READ F 

365 N.X 

378 RET. 

380 RESTORE 

385 F.X-1 TO 10 -.READ k : N . X 

390 F.X-1 1 TO A<L) + 1 

395 READ A* 

4m N . X 

405 RET. 

50 J REM ♦ BIN.1PY TO DECIMAL ♦ 

505 CLS:G.5l0 

507 P. "50RR V I CANNOT CONVERT OVER 16 DIGITS" 

IN. "HON MANY DIGITS IN THE BINARY NUMBER (1 - I6>";H 

525 IF H>16 CLS:G.S07 

S3* CLS 

535 P.'EPICH BINARY DIGIT IS ENTERED PS A 5CPERATE INPUT" 

540 F.X-1 10 LS:fl(X)-0:N. 

145 B-0 

E50 r.X-H TO 1 S. -1 

555 P. ft. 64, "ENTER BINARY (PRESS >ENTER< AFTER EACH DIGIT. 

58R IN.- 

565 P.P. 196, *BINI " 

570 P.A.284+B,A(X 

5^5 B-B+2 

585 N.X 

590 M-j:E«0 

595 F.X-1 TO H 

600 T-A(X)»M 

605 D- 1 J 1 

618 M-M»2 

615 E-D 

620 P.A.284+B." 

625 N.X 

633 0-D 

635 G.5S 

7R0 PEM ♦ HEX. TO DECIMAL ♦ 

702 C1_S 

785 F.»l TO 4:A(M)-8:N.X 

710 A-18:B-11:C-12:D-13:E-14:F-1S 

712 G-0 

7i5 IN. "MOW MANY HEX. DIGITS ARE TO BE ENTERED";H 

.'17 CLS 

720 P. "EACH HEX. DIGIT IS ENTERED AS A SEPERATE INPUT" 

721 P.A.64,"PRESS >EN TZP EACH HEX. DIGIT" 
-23 H-S 

??.** P. A. 196, "ENTER HEX. *; 

738 F.X^ T 

733 IN.A(X) 

735 P.A.210+G, " ": 

740 G-G+S 

745 N.X 

750 M-4036: 

755 F.X-1 TO 4 

760 L-A(X)»M 

755 R-L+S 

770 S-P 

775 M-M/16 

780 N.X 

735 Q-R 

7S0 P.A.208*-G, " -*;R 

795 G.S5 



) 
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* JET BOAT * by Michael Svensdotter (L1/4K) 

"Just refuel your jets and away you go..." 

The object of this game is to cross the river in your Jet-boat without being washed over the falls. 
With each new crossing, the maximum allowable Jet thrust will change, and as you transverse the 
river the current flow will vary. Work it out carefully or... over you go. 

Note lines 155 and 175. If you press (ENTER) before entering a number, don't worry about the line- 
feed because when you do put in a number the computer will see that point (127,38) is off and will 
jump to line 350. 

1 REM X M J 5UENSD0TTER 

2 REM ">< 4 MORTON AUE. SALISBURY NTH. 2583756 

3 REM X 2 3 '80 

20 CLS:P. "ttfttttltt JET BOAT 11323333 33" :P. :P. 

30 Y-l:N-2 \ 

40 I. *D0 ^OU WANT INSTffLlCTIONS ( Y 'N ) ' ; A: IFA-YGOS.S00 

m P.AT585, :I. "PRESS ENTuR TO REFUEL YOUR JETS":R« 

90 CLS:F . A-1TO30: P. AT73. -R crUELING JETS' 

35 F.Z-1T04:P.- REFUELING JETS '; :N.2:CLS:N. A 

100 CLS:A=FND(33)' 

110 GOS.200O:P. AT23, " *: 

120 P.AT3, "CURRENT <3+1 ' i 

130 D-FND( 10>+RNDC0):P.AT17,A4-D{ 

135 P-X:Q-v 

140 P.AT74, "ENTER YOUR JET ANGLE" ; Hi 954, : i . B: P. RT 954 

145 IFB<2OB~20 

150 B-B+D: IFB>8SE-3S 

155 IFF. (127,383-06.358 

1G0 P.RT70, TOW" ;ATB3. "THRUST ": AT954, : I . C: P. ft T 354 

185 IFC>A+8C-A-*fl 

167 C-RNDC 10)-l+CTFC<0C-0 

1"3 P.RT70, " " :RT1023, 

175 IFP. 127, 38 ^-OG. 350 

180 H-X:I-Y:Y-Y+A 

138 GOS.1800 

200 E-90-B:Y-Y-lU«C HD 

210 GOS. 1000 

220 X-X+( U*C ) 

222 G.245 

225 IF( X > 1 17 )♦( YJ32 >*< Y<" 34 )G . 308 

Z30 IFY>°38P. AT282, "YOU'VE JUST GONE OVER THE FALI .2200:6.30 

235 IFXM17G.225 

240 GOS. 2280: RET. 

245 K-f \ - I )/3: L-( X-H V3:X-X-( L+3 ) : Y-Y-< K*3 ) 

250 F.0-1T03 

255 IFO>1P-X:0-Y 

260 X-X+L:Y-Y+K:G0S.225 

270 IFY<11G.340 

280 N.O 

290 G.130 

300 P.RT282, "YOU' UE MODE IT"; 

320 G.330 

325 P.AT2G2. "YOU* UE CRASHED ON THE ROCKS"; 

330 IFX>U7X«*117:GO5.2Z00:G.80 

340 P. AT 132, "YOU' RE SUFPOSED TOO GO IN THE OTHER DIRECTION- :: G. 88 

350 CLSsP. "MAKE SURE YOU PRESS A NUMBER BEFORE YOU PRESS ENTER 

360 G.80 

500 CLS:P. "YOU'RE LIF STREAM FROM NIHGRR FALL 3". P. 

510 P. "A JET BOAT IS YOUR ONLY MEANS OF REACHING THE OTHER SIDE":P. 

528 P. "THE ONLY SAFE PLACE ON THE OTHER BANK IS NEAR THE FALLS'sP. 

530 P. "THE MAXIMUM JET THRUST WILL BE RELAYED TO Y0U":P. 

540 P. "THE SPEED OF THE RIVER WILL ALSO BE RELAYED":P. 

550 I. 'PRESS ENTER TO CONTINUE " :A«: CLS 

560 P. "MINIMUM JET ANGLE IS 20. MAXIMUM IS 90":P. 

570 P. "90 IS ACROSS THE CURRENT":P. 

580 P. "A SMALL ANGLE IS THE BEST WAY TO STAY ALIVE": P. 

590 P. "DUE TO ROCKS YOU MAY HIT SOME TURBULENCE" : P. 

G00 RET. 

1080 REST. 

1010 F.Z-lTOB/'10«2-3 

1020 READU 

1030 N.Z 

1040 RET. 

1050 D.. 94,. 91,. 87,. 82, .77.. 71,. 65,. 57,. 5,. 42,. 34,. 26,. 17,. 09 
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2000 P.AT2S, 'UNI T 3 OF THRUST :- MAX. T Tf > * ; fl+8; RT4, 

2910 F.2-1TO1000:N.Z 

2020 F.X-0TO 1275. 127 

2830 F.Y=RT030 

2040 S.(X,Y) 

20S0 N. Y 

2060 N.X 

2065 P.RTQ40. a ]Ht ( , ( *]t» a , •*t3«-, -T*»]*; 

2070 P.AT963,-*Jt« -;")«*t -j" THE r R L L S " ; 

2000 P." *tl% •;•?♦».;•; 

2C35 R.c 127,33):R.( 127,34) 

2090 Y-12:X-1 

2108 Q-Y:p-X 

Z200 F.N-1T02 

2210 F.F-0TC 

2220 F.G-0TO2S.2 

2230 r N-1R. (P*r,0+€):R.(P+2*F t 0*l):R. (P+6+f ,0>J I 

2235 IFY>-38G.2260 

Z248 IFN-2S.CX+F.Y+I •• 1 ) 

2260 N.G 

2270 N.I 

2260 N.N 

2300 RET. 

* ADDHEXAD * by Spencer George. 

This Level II program teaches hexadecimal arithmetic in Spencer's traditionally skilful method. 
The only processing done to-this listing was to remove line-feeds from REMs to reduce space require- 
ments. The use of separate print lines for different levels of function within this listing 
demonstrates that the '80 doesn't notice a linefeed in the middle of an instruction. 
The listing is well endowed with RH4s. So no further explanations are needed here. 

in • ii r x n n r r i h n i n p i t h n i t j c 

c'ld ' COPYKIGHI «. bVLNCLK l ltilM) 

30 ' SCI 4/S/-R0 

40 * THIS PROGRAM IS WRITTEN IN LEVEL U 

K0 ' RCOUIRI 3077 BYTES 01 Ml M(M Y 

70 * SPENCER GEORGE 

14 .' 47 YEF REET, 
BRLWYN, 3103 
(03) C35 42 
100 * THIS FROGRflM TEACHES SIMPLE HEXADECIMAL ADDITION. 

7T STRRTS BY TEACHING THE SIXTEEN HEXADECIMAL 

CHARACTERS 01234S6789ABCDEF 

AND THEN TEACHES SIMPLE ADDITIONS OF TWO SINGLE 
110 ' HEXADECIMAL CHARl 
128 * L^.iES i000 TO 1220 CONTAIN THE DRTfl DECKS AND MUST 

ALWAYS BE RUN. 

TESTING THE HEXADECIMAL CHARACTER SET HAY DC STARTED 

WITH GOTO1720 

TESTING THE SIMPLE ADDITIONS MAY BE STARTED WITH 
ISO ' GOTO 2000 (AFTER RUN THEN BREAK) 
1000 * PRINTS A LARGE HEAD INS 

HEXADECIMAL ARITHMETIC 
1010 CLS: 

[NTtS12, CHRK23); -HEXADECIMAL ARITHMETIC 
1028 FOR J - 1 TO 2B 

NEXT J 
1930 ' DATA DECK ^OR RSSORTCD NUMBERS R TO F 
1D40 DIM Y( 12) 
105C FOP J - 1 TO 12 
1060 READ Y(J) 
1670 fSFXT T 

1080 DATA )U, 14, 15,13, 12,11,15,13, tl, 12, 14, 10 
1090 ' UIDEO POSITIONS FOR HEXRDECIMAL CLOCK 

1100 DATA 106,178,248,368,510,637,762,819,874,808,731,599,469,343,219 161 
1110 DIM N2( 15) , N3( 15) 

1128 FOP 7 - 8 TO 15 

1130 READ N2(J) 

1140 NEXT J 

1150 ' HEXADECIMAL COMBINATIONS WITH A TOTAL OF 10 
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1160 FOR J - TO 5 

1170 READ N3*(J) 

J 180 NEXT J 

1190 DATA A + B - 10. C + 4 « 10, E + 2 = 10, B + 5 - 10, D + 3 - 10. F + 1 - 1 



1?00 ' HEXADECIMAL NUMBERS TO IT 

1?10 DIM H«(31 ): 
FOP J - TO 31: 
REftD HS(J) : 
NEXT J: 
DftTft 0,l,2,3,4,S,6,7,8,S,A.B.C,D,E.r,10, 11. 12,13,14, 15, 16,17, 10, 19,1 A, ID, 1C, I 

D.1E.1F 

1220 ' THE 16 HEXADECIMAL CHARACTERS DISPLAYED 
3Z30 CLS 

1240 PRINTP15, "HEXADCCIMAL CHARACTERS A.~E :* 
1250 FOR J - TO 15 
1ZS0 PRINT*960-J»64,HS( J); 
1270 FOR K - 1 TO 2P0 : 
NEXT K 

1288 NEXT J 

1290 FOP K - 1 TO 1200 : Nfc'Xl 

.300 • 16 HEXADECIAMl CHARACTERS DISPLAYED 

AND STUDENT 15 ASKED TO TYPE THESE CHARACTERS 

BUT THE ANSWER IS NOT CHECKED 
1310 CLS 

1320 PRINTeC-4, 'THE FIFTEEN HEXADECIMAL CHARACTERS ARE 
012 J4F6789ABCDL F" 

1330 PRINTP448, 'PLEASE TYPE IN ORDER THE FIFTEEN HEXADEClll T, 

TYPE ENTER AT THE END OF THE LIST 

AND A BLANK SPACE BETWEEN CHARACTERS 

■ 

1340 INPUT AAS 

j 350 • THE 3 ODD HEXADECIMAL CHARACTERS ARE DISPLAYED 

13G0 CLS 

1370 PR I NT 'ODD HEXADECIMAL CHftRACTEPS ARE: 

1330 FOR I - 1 TO 15 STEP 2 
!330 PRINT TAB(J«2); HSC J > 
1400 FOR K - 1 TO 200: 

NEXT K 
1410 NEXT J 
1420 FOP K - 1 TO 120 : 

NEX1 K 
1438 ' THE ODD HEXADCIMAL CHARACTERS ARE DISPLAYED 
AND THE STUDENT IS ASKED TO TYPE THE LIST 
BUT THE LIST IS NOT CHECKED 
1440 CLS 
1450 PPINT»G4, 'THE ODD HEXADECIMAL CHARACTERS ARE 

I 3 S 7 9 B D F 



1460 PRINT 'PLEASE TYPE THE ODD HEXADECIMAL CHARACTERS 
TYPE ENTER AT THE END OF THE LIST 
AND A BLANK SPACE AFTER EACH CHARACTER 



1470 INPUT AAS 

1490 ' THE 8 EVEN HEXADECIMAL CHARACTERS ARE DISPLAYED 

1498 CLS 

1500 PRINT'EUEN HEXADECIMAL CHARACTERS ARE : 

1510 FOR J - TO 14 STEP 2 
1520 PRINTTAB( J»3); HKJ) 
1530 FOR K - 1 TO 200 : 

NEXT K 
1540 NEXT J 

1550 FOR K - 1 TO 1200 : 
NEXT K 
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15S0 THE EVEN HEXADECIMAL CHARACTERS ARE DISPLAYED 

AND THE STUDENT IS ASKED TO TYPE TEH LIST 

BUT THE LIST IS NOT CHECKED 
JS70 CLS :PRINT*64, 'THE EVEN HEXADECIMAL CHARACTERS ARE 

82468ACE 

1580 PRINT' PLEASE TYPE THE EUEN HCXADECIMAL CHARACTERS 

HEPRESS ENTER AT THE END OF THE LIST 

AND PLACE A DLANK SPACE BETWEEN CHARACTERS 

1590 INPUT AAS 

1S00 ' THE DECIMAL EQUIVALENTS OF THE LG HEXADECIMAL CHARACTERS ARE 

DISPLAYED 
1610 CLS 
1620 PRINT'DECIMAL EQUIVALENTS FOR HEXADECIMAL CHARACTERS ARE : 

1630 GOTO 1710 

1640 ' A SUBROUTINE WHICH DISPLAYS THE 1G HEXADECIMAL 

CHARACTERS AMD THEIR DECIMAL EQUIVALENTS 
1650 FOP JA - 15 TO STEP 1 
1660 PRINT 

1670 PRTNTHS(JA); ■ H • ; JA, 
1680 EOR K - 1 TO 20e : 

NEXT K 
1690 NEXT JA 
1700 RETURN 
1710 GOSliB 1650 
1730 ' THE STUDENT IS TESTED ON THE DECIMAL EQUIVALENTS 

TOR THE HEXADECIMAL CHARACTERS A TO F 
1734 FOP J = 1 TO 12 
L73S IF RE = 9 THEN CLS: 

GOTO 17S0 
1740 IF J < G AND J <> 1 THEN GOSUB 1650 ELSE IF J >1 CLS 
1750 PRIMT$S4,"GIVE THE DECIMAL EQUIVALENT FOR": 
17G0 PRINTei58, "THE FOLLOWING HEXADECIMAL NUMBER"; 
1770 PRINT#28G, HS( Y(J) >: " H - *; 
1780 N - Y(J) 
1730 INPUT NZ 

18e0 ' IF RESPOINSE IS INCORRECT THEN THE CORRECT 
RESPONSE IS DISPLAYED SLOWLY 10 TIMES 
AND A PRINTED RECORD OF CORRECT RESPONSE 
AND GIVEN ANSWER IS PRODUCED 
1810 IF N2 <> Y(J) THtTN CLS i 
PRINT CHR»<23>;: 
FOR K = 1 TO 12: 

PRINT HSCN); ■ H - *; N: 
1820 IF N2 <> Y(J) TVIFN FOR L = 1 TO 500: 

NEXT L: 
NEXT K: 

PRINT CHP*(28): 
PRINT»96C, HS(N); * H - '; 

1830 IF N2 <> Y(J) ANn PEEK( 14312 "> - 63 THEN 

1. PRINT CHRSC14); "THE DECIMAL EQUIVALENT OF "; HS(N) ; " IS * 
; N ; CHR*( IS); " NOT *;N2 

1831 IF N2 <> Y(J) THEN 1790 

1840 ' WHEN THE ANSWER IS CORRECT THE STUDENT IS REWARDED 

BY LARGE WELL DONE APPEARING ON THE SCREEN 
1850 CLS: 

FOR U- 1 TO 37: 
PRIHTCHR»(23J; ■ WELL DONE ";: 
FOR UU = 1 TO 30: 
NEXT UU : 
NEXT U : 

FOR U - 1 TO 200 : 
NEXT U : 
CLS 
1860 NEXT J 

1870 * A LARGE CLOCKFACE WITH THE 16 HEXADECIMAL 
CHARACTERS IS DISPLAYED 
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1880 


CLS: 




PRINT*»64, -HEXADECIMAL CHARACTERS' 




GOSUB I960 


1830 


FOR J - 1 TO 2400 : 




NEXT J 


1900 


CLS 


1910 


THE IMPORTANT TOTALS A + 6 




B ♦ 5 - 10 




C + 4 - 10 




D + 3 - 10 


1915 


E + 2 - 10 




F + 1 - 10 



- 10 



1920 PRINTCHRSC23): 
PR INT 'REMEMBER 



FOR J - TO 5: 

PRINT N3SCJ) 

FOR K ■ 1 TO 800 : 

NEXT K: 

PRINT: 
NEXT J : 

FOR J= 1 TO 1200 : 

NEXT J 
1930 GOTO 2010 

1940 ' A SUBROUTINE FOR PRODUCING THE HEXADECIMAL CLOCKFACE 
J9S0 CLS 

I960 FOR JJ - TO IS 
1970 PRINT#N2( JJ),HS< JJ); 
1980 NEXT J J 
1990 RETURN 
2000 ' POSITIONS FOR THE COUNTING ARROWS ON THE 

HEXADECIMAL CLOCKFACE 
2010 N3(0) - N2C0) + 64 
2020 N3(8) - N2C8) - 64 



2038 FOR J - 

N3(j: - 

NEXT J 
2040 FOR J - 



1 TO 7 
N2fJ) - 

9 TO 15 



N3( J) - N2( J) ♦ 
NEXT J 



20S0 



PRODUCES 10 HEXADECIAML ADDITIONS FOR SINGlE CHARACTER 
NUMBERS . 

THE TOTAL WILL ALWAYS BE GREATER THAN 9. 

FOR THE FIRST 5 QUESTIONS THE CLOCKFACE WILL BE VISIBLE. 
2060 FOR JR - 1 TO 10 
2070 Rl ■ RND( 14) + 1 
2080 R2 - RNDC14) + 1 
2PD0 IF Ri + R2 < 10 THEN 2070 
2100 CuJ 

2110 IF JR < 6 GOSUB 1950 
2120 PRINTt>0, "WHAT IS THE HEXADECIMAL*; 
2130 PRINT»64, 'SUM OF'; 

2140 PRINTIH28,HS<R1 ); * + "; HSCR2); ' - *; 
2150 INPUT 2S 
2160 ' WHEN THE ANSWER IS CORRECT THE STUDENT IS 

REWARDED BY CORRECT APPEARING 10 TIMES ON 
THE SCREEN 
2170 IF 2$ - HSCR1+R2) THEN CLS: 
FOR U- 1 TO 12: 
PRINT CHRSC23); 'CORRECT' : 
NEXT U : 



FOR U - 
NEXT U 
CLS : 
RR - RR 



1 TO 200 



+ l: 



GOTO 2380 
2180 ' WHEN AN INCORRECT RESPONSE IS MADE THE CORRECT 

SOLUTION IS DISPLAYED AND PRINTED 
2190 PRINT 

2200 PRINTHS(Rl); ' + "; HS(R2); 
2210 IF PEEK( 14312) -63 THEN LPRINT HS(Rl) ; ' + '; HS(R2) 
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2220 IF R2 > Rl THEN S - R2 ': 

R2 - Rl: 

Rl = S: 

PRINf ' - "; HKRIK ' + ": HS(R2) : 

IF PEEKC 14312) - 63 THEN 
LPRINT ' - '; Hf(Rl); " + " : H«(R2 
2238 IF Rl + R2 > 16- THEN PRINT TAB( 5 ) ; " - ": H«(R1); " + '; H»( 16 - Rl); 

- + •; HKR2 * Rl - 16) - 

PRINT 1AB<5); " - 10 + ■; HS(PZ + Rl -16) 
2240 IF Rl *• R2 > 16 fiND PEEKC14312) - 63 

THEN I PRINT TAB(5); " - "! H«fRl); " + "i 

HS(16 - RDS • ♦ *; HSCR2 + Rl - 16): 
LPRINT TAB(5): ■ - 10 + ";HS(R2 + Rl - 16) 
2258 °PTNT TAB(S); * - "; HS(R1 * R2 ) 
31? ) - 63 THEN 

LPRINT TflB(S); • - *; HfCRl *"RZ) ! " 
•. ZS 
2270 GOSUP 1SS0 

■ • RRECT A CLOCKFACE IS 51 

OCKWISE FASHION) 

TO SHOW THI sun 
2290 FOR J - 3 TO R2 : 

FOR TE - 1 TO 100: 

rE: 
X ■ Rl ♦ J s 

> IS THEN X - • 
2300 IF > IHD X (. 8 PRINT*N3(X>-3, ' * ;CHR»(94); : 

2310 I B PRXN1 IRS(93); : 



N01 



GOT' 
2320 IF X = PRINTeN3(X>, CHRSC91); ELSE PRINT*N3(X). CHRSC92); 

2250 ; 

23C0 PRINTS360. ■ "! 

2370 GOSUB 2440 

2390 NEXT JR 
2350 RE - 9: 

CLS: 

PRINT$128, "WOULD YOU LIKE ANOTHER SET OF QUESTIONS ON HEXADECIMAL 

CHARACTERS ? 

THEN TYPE C ENTER 

MOULD YOU LIKE ANOTHER SET OF QUESTIONS ON HEXADECIMAL ADDITION THEN TYPE 
ENTER 

2391 INPUT 2S: 

IF IS - "C" THEN 1728 

2392 IF Zf - 'A' THEN 2000 ELSE CLS 
24P0 PRIHT#520,CHRf(23); - GOr>D BYE" 

2410 END 

,1 • A SUBROUTINE TO FLASH 

PLEASE TOUCH SPACE BAR WHEN READY 
2440 FOR JH - 1 TO 25 
2450 X§ - INKEYS 
2460 IF XS <> " RETURN 

2470 PRINT<*970."PLEASE TOUCH SPACE BAR WHEN READY"; 
2490 NEXT JH 
2490 FOR JH - 1 TO 25 
2S00 X* - INKEYt 
2510 IF XS <> ■* RETURN 

2520 PRINT0970," ' ' 

2530 NEXT JH 
2540 GOTO 2440 
4000 LPPINT CHR*(14) 
4010 FOR J - 1 TO 8 

4020 LPRINT" SIMPLE HEXADECIMAL ADDITION" 
4030 NEXT J 
4040 LPRINT" 
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4350 FOR J - 1 TO B 

4860 LPRINT "S C G 4 MAY, 1980 

4070 NEXT J 

4080 LPRINT CHR»C15) 

4090 LPRINT" 



COPYRIGHT C SPENCER GEORGE 1980 



B GAME (L2/16K) -by Lance Lawes. 

Now here's an idea! A game for businessmen and executives that they CAN play at work - claiming 
that they need some extra practice! 

If you have any ideas about going into the gizmo business, then this program will soon discover if 
you have what it takes! Each section of program logic is named, so no notes will be required - 
perhaps you might like to play with some of the random generators though, just to make the 
opposition a little tougher? 

S ' *••*♦ BGAME (L2/i6K) - BY LANCE LAWES *♦*♦♦ 

JO RANDOM :CLS: CLE AR1 00 : DEFrTRF : DEFDBLA, C.L, R: DFFINTP. Q,X, M, O 

20 Fl"-°#t##*t#- * : Al-li r»00ne0:P-70:O-15O0: A3-105080:A4-1000O0 

30 LI -352000 : L2-1 SSO00 : L3--20000O: I -.0 125 : FC ' -120000 

4U PRINT027S, "B USINESS M A N" 

41 PRINT#340, STRINGS ( 24, '*" / 

42 PRINT r448, ■";: INPUT "DO YOU WANT INSTRUCTIONS ( Y/"N ) * : <* 

43 ir:'SO"Y"ANDX*O-N-G0T042 

44 IFXf-"Y"GCTOZ050 
100 FOR N-l TO 12 

105 GOSUB100O 'PRINTOUT BALANCE SHEET 

118 INPUT'PPFSS < ENTER > WHEN READY ";X 

140 CLS 

158 Al-Al+fi2-Ll:A2-0:Ll-0 'SETTLEMENT OF DEBTORS 1 CREDITORS 

ISO CC-A5S(L2«I ):C3-C3+CC:L2-L2+CC ' INTEREST CALCULATION 

•70 LB-0: INPUT'LOAN REPAYMENTS " ; LB: L2-L2-LB: A1"A1 -LB 

180 LB-0: INPUT'LOAN FUNDS OBTAINED " ; LB: LQ"LB+L2: IF LQ>S0 

0000 GOTO 181 ELSE185 

181 PRINT "YOU HAUF EXCEEDED YOUR CREDIT LIMIT" : LO-0: GOTO180 
185 L2-L2+LB:A1-AI+LB 

1S0 AD-0: INPUT -MACHINERY PURCHASED . * : AD: A4-A4+AD: Al-Al -AD 

200 AD-0:INPUT*MACHTNERY SOLD " ; AD: A4-A4-AD: A1-A1+AD 

210 FC!- 120000* 100000' A4:C2-C2+FC :A1-A)-FC! 

220 ' CALCULATE BUYERS MARKET 

230 MQ-RND( 15000): IF MO<808O GOTO230 

Z40 OP-RND(100):IFOP<75 COTO240 

ZS0 INPUT-HOW MANY UNITS DO YOU WISH TO PURCHASE ' : Ql : IFQ1 >5000 PRINT "YOU HA 

UE EXCEEDED YOUR WAREHOUSE STORAGE CAPACITY" : GOTO250 

ZS0 INPUT "HOW MUCH PER UNIT ARE YOU PREPARED TO PAY.."; PI 

270 OQ-RNPC 12000): IF OQ>MQ GOTO270 

280 IFPKOP THEN 300 ELSE 350 

300 ' WHEN THE OPPOSITION BEATS US ON PRICE 

310 02-MQ-00: IF02>Q1 THEN 02-01 

315 Q-Q-t-G2 

320 AC-PI »Q2:A3-A3+AC: LI -Ll+AC 

330 PRINT "YOU HAUE PURCHASED *;Q2;" UNITS * ":P!;" EACH FOR " ; AC 

335 PRINT'YOU HAUE ";0;" UNITS OF INVENTORY ON HAND" 

340 GOTO380 

350 ' WHEN WE BEAT OR MATCH THE OPPOSITION ON PRICE 

360 02-01 :G0T03 15 

380 ' CALCULATE SALES MARKET 

390 MQ-RND( 15000): IF MO<8000 GOTO 390 
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400 OP-RNDC 100): IFOP<50 GOTO4O0 
410 CQ-FNDf 12000): IF00M10 G0TO41O 

420 Q 1-0: INPUT 'HOW MANY UNITS HAVE YOU TO SELL *;Q1 

P 1-0: INPUT "WHAT IS YOUR BEST PRICE "iPl 

440 IFP1>0P THEN 450 ELSE SCO 

450 ' WHEN THE OPPOSITION BEATS US ON PRICE 

460 Q2-MQ-00:IF02>Q THEN 461 

461 IF02>01 THEN C2=01 

462 IFQ2>Q THEN 02=0 

170 PA=G2»P1 :R1-Ri+RA:A2«A '+RA 

430 GOT0525 

500 ' WHEN WE BEAT THE OPPOSITIONS PRICE 

510 02-01 : IF 02 >Q THEN Q2-0 

520 GOTO470 

525 P-0:P-A3''Q:CA-Q2*P:C1<-CI + ' l3-Cfl:Q«Q 

530 PRINT'YOU HRUE SOLD ':02:- UNITS * "-Pi;" T I * ; RA 

540 PRINT" AT R COST OF 'jPj" EACH F* 

545 PRINT'YOU HAVE "iQl" UNITS or INVENTORY ON HAND" 

5SB C4-R1-C1-C2-C3:L4-L4+RA CA-CC-FC! 

551 LD-C.T PUT'DIVIDEND PRID - ;LD'L4-L4-LD' AWU L 

D 

INPUT 'PRESS <ENTER> WHEN RERDY >* 

590 IFAK0GOTO2000 ELSE 53? 

585 NEXTN 

590 GOTO2025 

1000 CLS * PPINTOUT OF BALRN -E SHEET 

1010 PRINT-CfiSH FUNDS", :PRINTUSINGFl;Al f : PRINT' CREDITORS ' , : PRINTUSINGF1 ; U 

■020 PRINT-DEBTORS". :PRINTUSINGFlSft2.:PRINT' LORN FUNDS". iPRINTUSINGFj 

1030 PRINT" INVENTORY" , : PF.INTIJSINGF1 ; R3, :PR I CAPITAL' , : PRINTUSINGf 1 ;, J 

1040 PRINT -MACHINERY". :PRINTUSIN6F J :A4,:PRINT' PROFITS". : PRINTUSINGF UL4 

1050 AS-AH-A24*»3+A4:LS-L1+L2+L3+L4 

I960 PRINT-fiSSETS",:PRINTUSINGFlj WT" LIABILITIES" . 'PRINTUSINGF I :LS 

•L70 PRINTSTRIN6»fS3, _ _, 

1OR0 PRINT-UARIABLE COST'. : PRINTUSINGF1 ; CI. : PRINT" SALES" . -PRINTUSINGFliRl 

1090 PRJNT 'FIXED COSTS' ,: PRINTUSINGF I ; C2 

; IC10 PRINT* INTEREST*, :PRINTUSINGF1 ; C3 

1110 PRINT"PROFITS", : PRINTUSINGF". » C4 

L*20 PRINTTABC IS >STRING«< 16. "-" )? :PRINTTAB(48>STRINGS( 15. " ") 

1130 PRINT"", :PRINTUSIN6Fl;RI, :PRINT* ". :PRINTUSINGF1;R1 

1140 PRINTSTRING«(B3, "-") 

1150 RETURN 

2600 GOSHB1000 

i010 PRINT-YOU HAU! H INSOLVENT RND YOUR BUSINESS OPERR.ION 

BEEN CLOSED DOWN PENDING THE APPOINTMENT OF ft LIQUIDATOR" 
2020 GOTC2070 
2025 GO5UB10C0 

PRINT'YOU HRUE COHFLETED P rEAR' S TRRDING. YOU t1R Y NOW HRUE YOUR 
BOOKS RUDITED RND YOUR TAXATION RETURN PREPARED" 

B G0T02040 
2050 CLS 

2055 PRTNT : PRINT : r PINT: PRINT 

7360 PRINT" THIS 15 R PROGRAM TO TEST YOUR SKILL AS R BUSINESSMAN 
INITIALLY, YOU ARE SUPPLIED WITH R PREDETERMINED BALANCE 

T. YOU APE BUYII SELLING R SINGLE PRODUCT BUT YOU RRE 

RATING IN A COMPETITIVE MARKET, AND YOUR COMPETITOR WILL' 
PRINT "STOP AT NOTHING TO UNDERCUT YOU ON PRICE. 

YOU WILL BE GIUEN TWELVE THS IN WHICH TO MAKE A PROFIT 

THE RULES OF TRADING APE AS FOLLOWS:-" 

2080 PRINT: INPUT 'PRESS 'LNTER> TO CONTINUE ':X:CLS 

7030 PRINT: PRINT "CASH MANAGEMENT 

L PURCHASES & SALES WILL BE ON R CREDIT BRSIS. ALL DEBTORS 
ACCOUNTS WILL BE RECEIVED. AND ALL CREDITORS ACCOUNTS WILL BE 
PAID. IN THE FOLLOWING MONTH. 

2) FIXED EXPENSES, AND ANY MACHINERY PURCHASED, WILL BE' 
2100 PRINT'PRID FOR IN THE CURRENT MONTH 

3) YOU MUST REMAIN SOLVENT AT ALL TIMES '. ABSOLUTELY NO BANK 
OVERDRAFT). HOWEVER, IF YOU RUN SHORT OF FUNDS, YOU MAY BORROW 
BI'T INTEREST IS PRYRBLE AT IS* P.R. ON THE BALANCE OUTSTANDING' 

2110 PRINT'AT THE BEGINNING OF THE MONTH. SHOULD YOU DE INSOLVENT RTTHE END OF R 

MONTH YOUR BUSINESS OPERATION WILL BE IMMEDIATELY 
CLOSED DOWN PENDING THE APPOINTMENT OF A LIQUIDATOR' 
2120 PRINT: INPUT 'PRESS <ENTER> TO CONTINUE ';X:CLS 
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2130 PRINT: PR INT 'MARKET FORCES 

ARC COMPETING TN THE MARKET PLACE FOR* THF PUR: RESALES A SUPA-DUPA G 

ISMO THAT NO MORON SHOULD BE WITHOUT 

THE LOW OF SUPPLY & DEMAND APPLIES, SO YOU WILL GET MARKET 
PREFERENCE ONLY WHEN" 

2140 PRIMT-A) YOU OFFER YOUR SUPPLIERS A HIGHER PRICE FOP YOUR 
MERCHANDISE THAN YOUR OPPOSITION 

B) YOU CAN UNDERCUT YOUR OPPOSITION'S SELLING PRICE* 
21S0 PRINT: INPUT-PF 

2160 PRINT:PRINT:PRINT-YOUR INITIAL INVENTORY IS 1S00 UNITS UALUED AT COST 
PRICE AT *70 EA. 

AVERAGE UNIT SELLING PRICE IS ABOUT »1» 
AVERAGE SALES ARE ABOUT SS00.000 PER MONTH" 

2170 PRINT 'VARIABLE COSTS ARE ABOUT 70% I S, BUT THIS 
VARY DEPENDING ON HOW WEL: -ICES WITH SUPPLIE 

FIXED COSTS ARE PRESENTLY S120.000U BUI THIS MAY BF REDUCED 
LY UPGRADING YOUR OUTDATED ERY WITH MORE MOW 
2180 PRIMT-EQUIPMENT WHICH IS URGENTLY NEEDED' 
2190 PRINT: INPUT "PRESS <ENTEJ I READY 10 ' ' ; X: CLS: GOTO100 

HDEF * 
Ever -e gem i eelf- 

I general to be usef you. 

10 REM. THE GREGCI- <DAR 

B.J.C. 1979. MICRO-80 1980. 

20 DEFINT N.Y.D, J.I.M.K.W: POKE 16553, 255: XX-0 
30 DIM Af(12),N(12),W(7) 
«»0 GOSUB 90 



50 GOSUB 610. 




G0 D-HS 




70 GOSUB 260 




B0 END 




90 FOR J-l TO 12 




100 READ A«< J),N( J) 




110 DATA* J A N',31, *F E 


B 


12« DATA'M A Y',31, "J U 


N 


13tf DATA'S E P-,30, "0 C 


T 


140 NEXT J 




150 IF XX -> 1 THEN 180 




1E0 CLS: PRINT CHRSC23): 


I 



28, -M A P',31 . 'A f-' R-.30 
. M U L',31, "A U G-.31 
.3 J . -M O U-.30.-D E 



input 



ENTER YEAR NUMBER - ";Y 
170 REM. F - NORMAL LEAP YEAR ROUTINE 

FFj' CENTURY LEAP YEAR ROUTINE 
lcl0 FF-Y'400 

190 IF IHT(FF)-FF«0 THEN 220 
200 FF-Y/I00 

210 IF INK FF)-FF~0 THEN 240 
220 F-Y/4 

230 IF INT( F)-F-G THEN N(2)-N(2)+l 

240 CLS: FRINT • 458,CHRf(23) "CALENDAR FOR *;Y 
250 RETURN 
260 FOR M-l TO 12 
270 FOR X-l TO 2000: NEXT: CLS 

280 PRINT 9 77, Y: PRINT * 10S.Y: FRINT: PRINT TAB(24)* *;ASrM); 

290 PRINT TABC14) "SUN MON TUE WED THU FRI SAT*: REM. 

2 SPACES BETWEEN DAY NAMES 
300 Dl-D 

310 FORI-1 TO N(M) 
320 W(D)-I 
330 D-D+l 
340 IF D <- 7 THEN 480 
350 K-l 

360 IF K-Dl THEN 400 

370 PRINT TABC14)* ";: REM. 5 SPACES BETWEEN * * 
380 K-K+l 
390 GOTO 360 
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400 IF Dl > f» THEN 450 

410 IF W(D1) < 10 PRINT TAB(14)' *;: 
REM. 1 SPACE BETWEEN ■ ■ 

420 PRINT TAB(14) W(D1);" ';: REN. 1 SPACE BETWEEN ■ ■ 

430 Dl-Dl+1 

440 GOTO 400 

450 IF W(D11 < 10 PRINT THBC14)* "; W(7):G0T0 470: 
REM. 1 SPACE BETWEEN ■ ■ 

4B0 PRINT TAB(14) W( 7 ) 

470 D-l: Dl-1 

-130 NEXT I 

490 IF D-l THEN 5B0 

500 K-l 

510 IF K-D-l THEN 550 

520 PRINT TABC14) W(K);' •;: REM. 1 SPACE BETWEEN ■ • 

530 K-K-fl 

540 GOTO 510 

550 PRINT TABC14) WCB-I) 

5G0 NEXT M 

570 FOR X=l TO 2500: HEXT 

530 RESTORE: XX-XX+1: Y-Y+l: GOTO 40 

590 RETURN 

600 REM. ROUTINE TO CALCULATE DAY -NAME OF 1ST JAN. 

610 M=l: D-i! R-INT(.6+(1/M))r S-Y-R: T-1+12*R 

620 U-S/100: K-INT(U.'4): Hl-INT(U): H2-INTC ( S»S )/4 ) 

630 H3~INT(13*(T+l)/5>: HS-H3+HZ-M+H 

640 H6-H5-C7*INT(HS/7n + l 

650 RETURN 



ANDROID SHOOTMAN (L2/16K) 

This game is really a variation on hangman, but instead of the gallows being built up bit by bit, 

your executioner is, until you are finally shot! 

Subroutine 1000 reads the words in the data statements into the N$ array. There can be up to 500 

words, as long as the last word is 'END". 

Subroutine 1050 pokes you, the right hand man, onto the screen. It uses the data in line 1500 for 

this. 

One of the words read into the array is chosen, and this is stored in W$. A$ contains either dashes 

(chr$(95)) or letters that have been guessed. G$ contains all the letters you have guessed so far. 

Line U5 checks to see if you have already guessed the letter, while lines 50-70 check to see if the 

letter is in the word you are guessing. If it is, it replaces the dash in A$ with the correct 

letter (line 60, A$ = L£FT$ ) 

If a guess is incorrect, the program jumps to line 100, where the wrong guesses (WG) is incremented. 

The executioner and gun is stored at 110 to 160. If you feel 5 chances is not enough, this may be 

increased by breaking the POKES into more lines, ending each with a 'GOTO 20' and adding the 

appropriate line HO's in the 01/ WG GOTO — statement. 

When all your chances are up, the program goes to line 170. 170 turns the R.H.S. man's head. 180 

turns the executioner's head, 210 warms up the gun, and 220 shoots you. 

Line 235 blasts you to bits by poking you on the screen in reverse order. The program tnen prints 

the correct word, and waits for you to hit Ei-fTER to continue. This happens after you guess the 

word correctly too. 



' •*••• ANDROID SHOOTMAN (L2/1GK) - BY D. J. MOORHOUSE ••••* 

1 ' 315 EUREKA STREET , BALLAARAT , VIC. 3350 

2 ' GRAPHICS BY THE AUTHOR OF 'ANDROID MM* 

3 CLEAR3000:DIMA«(1O0),NSC500) 

5 CLS:GOSUBie50:GOSUB1000:Gf-":CN-0:WG-0 

6 RESTORE : GOSUB1050 : GS- * ■ : CN-0 : WG-0 

10 RANDOM: B-RND( A ) : WS=NS( B ) : L-LEN< Wf ) : AS -STRINGSC L , 9S ) : CN-0 

20 PRINT©65, 'YOUR WORD IS - ; AS 

30 PRINT1129, 'INPUT YOUR GUESS * ; : INPUTBS: BS-RIGHTS( BS, 1 J 

44 F-0 

45 FORG-1TOLEN(GS):IFBS-MIDS(GS,G.1)THENPRINTS128, 'ALREADY USED THAT ' - : G-200:F- 
1 
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4G NEXTG: IFFTHENFORG-4TOS00: NEXT:GOTG20 

47 Gf-G**B1 

48 PRIHT9193, 'LETTERS USED " ; GS 

50 C-0:FORX-1TOL:IFBS< >MIDI(WS,X, 1 )THEN70 

60 C-l : CN-CN+1 : A»«LEFTS< A* , X- 1 ) + B»+RIGHTS( RS , L -X ) 

70 NEXTX: IFC=0THEN100 

30 IFCN-LTHENPRINT065, 'YOUR WORD IS * ; W»: PRINTS257, "CONGRATULATIONS ' ' YOU GOT TH 

E WORD WITHOUT A KILLING - ELSE20 

90 IMPUTES :CLS:GOT06 

100 WG-WG+l:ONWGGOTO110, 120, 130, 150, 160,170 

110 POKE 16201, 160 .-POKE 16202, 176: POKE 16203, 149: POKE 16204, 170: POKE 16205, 176: POKE 16 

Z0G.144:GOTO20 

120 POKE16075, 191:POKE16076, 175: P0KE1G139, 159: POKE16140, 175:GOTO20 

130 POKE16073, 160: POKE 16074, 156: P0KE16137, 133: P0KC16130. 100 

140 POKE 16077, 172: POKE 16073, 144 : POKE 16141 , 184 : POKE 16 142. 135:GOTO20 

150 POKE16010, 190:POKE16011 . 1 55: POKE16012, 167: POKE16013. 185: P0KE15947, 148:P0KE1S 

348,168:GOTO20 

160 F0KE16141, 128: P0KE16142, 128: POKE16077, 140: POKE 16078, 140: POKE16079. 140: P0KE16 

QB0, 140: POKE 1608 1,62: POKE 16082, 45: POKE 16003, 61 : GOTO20 

170 POKE 15382, 163 :POKE 15983, 128: POKE16045, 184 : POKE1G04G. 1 37: POKE16047, 191 : F0KE16 

191:POKE1G049,132 
180 FORG-0TO1000: NEXTG 

190 POKE16009,136:POKE16010,19l:POKE16011, 191 : POKE16012, 183: POKE1S013, 180: P0KE15 
948,14b:P0KE15947,128 
200 FORG-RTO 1000: NEXT 
210 FORG-1TO30:FOPH-1TO10:NEX1H:POKE16083, 128: F0RH-1TO1 Q: NEXTH: P0KE16PS3. 61 : NEXT 

220 FORG-16083TOlG090:POKEG,61:NEXT:rORG-16091TGlE10 ri :POKEG,61:FOKEG-8, 120: NEXT: 

FORG-16180TO16109:POKEG, 128: NEXT 

230 RESTORE 

235 F0RT-5T01 STEP- 1 : READB.C, D, E, F, G:K-T*G4+ 15916: POKEK, B: POKEK+1 1 , C: FOKEK+2, D: PO 

KEK+3 , E : POKEK+4 , F : PC KEK *5, G: NEXT 

240 PRINT»256, "THE WORD- WAS ':Wf 

250 GOTO90 

1030 A»l 

1010 REfiPNt(H):irN»(ft)-'END"THENRETURN 

1820 A-A«-1:GOTO1010 

1050 F0RT-1T05:K-(T«64)+15916 

1060 READB,C,D,E,F,G 

1 070 POKEK , B : POKEK+ 1 , C : POKEK * 2 , D : POKEK+3 , E : POKEK+4 , F : POKEK+5 , G 

1080 NFXTT: RETURN 

1500 DATA128.128,148,168,128, 128,128,190,155.167, 189, 128, 160,156,191,191,172,144 

,139, 180. 159,175,184,135, 160, 176,149, 170,176, 144 

2090 I>RT AGUNPOWDER , HORNSWOGGL E , UT ILI TY , MANUSCRIPT , ROCKET , URANIUM , ELEPHANT , OXYGEN 

.COMPUTER, INDIAN, MATHEMATICS, SPY, BOMBING, CONTROVERSIAL, ALLIGATOR, CROCODILC 

2O02 DAT AAUSTRAL I A, THRUST, KEROSINE, CAFRICIOUS, GAUCHE, SPELLING, WINTER, ANDROID, ROC 

KET , SPAGHETTI , ROSTER, MAGNESIUM, ALPHA, TRINOMIAL , WINDOW, HYPER GEOMETRIC . F OISSON.Q! li 

BRAT I C , CARPET , CASSET TE 

20,34 DATACEILING. WAX, RHYTHM, AUTUMN. LIBRARY, MNEMONIC, PNEUMONIA, PSYCHIATRIST, HAE! 10 

RHAGE . TOUCH 

2005 DATAfSTABLISHMENT. SCIENTIFIC. EXTRAORDINARY, OSCILLOSCOPE, BALLAARAT. DISTRIBUT 
ION. DENY, EUCALYPTUS*,'WEDNESDAY, HAEMOGLOBIN, GLYCOGEN, ALKAHE. BENZENE, CENTRIPETAL. PI 
CYCLE , CHRISTMAS, CACTI I , LLAMA, THIS FOOLED YOU. FLAW, QUEUE, QUAY, COMPLIMENTARY 

2006 DATR5UPPLEMENTARY. GYNAECOLOGIST, ESPY, ESTUARY. TEPID, CREEK, RIVER, CANYON, NITRO 
GLYCERINE, TOLUENE 

2007 DATACENTRIFUGAL, PROLONGATE, MENDACIOUS, AUDACIOUS, INTEGRATED, INTERNATIONAL. PL 
ANETARY, VICARIOUS, MORON. TRANSITION, PERIODICALLY. APPLICATIONS, RELATIVITY, ULTRAVIO 
LET, INFRARED, THEORETICAL, CATHODE, FOUNDATION, UNIVERSITY, EDUCATIONAL. REFERENCE, GNU 

2008 DATAMICRO 80. STATIONARY. INERT I AL , ACCELERATION. END 



HOUSEHOLD ACCOUNTS PROGRAM FOR EXATRON STRINGY FLOPPY 

MODULE 1 
5 P0KE16634,74 

10 CLS: CLEAR 7000: DEFDBLL: DEFSTRAs DEFINTI , J> X : DIMA( 101 ) sDIMLB(lOl) :DIMLT<10 1 
15 K)KE 1*396, 23 

20 F1$="DATE REF NO DETAILS TOTAL. .. A/C NO DEBIT. .. CREDIT. . " 

40 F 3* = "£££&£, fcfc " : F4* = "L , fcfcfc , fcfcE. fc£- " 
45 6L0AD2 
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MODULE 2 

50 PRINT" * * * M E N II # ♦ *" 

60 PRINT"* 1 * KEYBOARD INPUT"."* 6 * PRINT JOURNALS" 

70 'RINT"* 2 * CASSETTE INPUT","* 7 ♦ PRINT LEDGER BALANCES" 

80 PRINT"* 3 * READ MEMORY","* 8 * LINEPRINTtR UTILITY" 

90 PRINT"* 4 * EDIT MEMORY","* 9 * LEDGER ACCOUNTS" 

100 PRINT"* 5 * SAVE ON CASSETTE" 

150 X*=""tX»-INKEY*«X=VAL(X*)i IFX*= "THEN150 

160 ON X GOTO 170, 230, 280. 340, 360, 500, 1010. 1260, 1300 

170 ©L0AD3 

230 ©L0A04 
280 ©L0AD5 
340 ©L0AD6 
360 3LOAD7 
500 ©LOADS 
1010 ©L0AD9 

1260 ©L0AD10 
L300 ©LOAD11 

MODULE 3 

170 CLS: PRINT" DATE REF NO DETAILS TOTAL... A/C NO DEBIT. .. CREDIT. 
17) PRINT" ! ! ! >.,,,,-,. ! I*...-..!*...-.. " 

180 F0R1=1T0100 

190 -FA( I )( )""THEN210 

200 A="": INPUT A: IF LEN( A ) )62THEN205 

'FA="EXIT"THEN220 

204 G0T0206 

205 PR I NT" ERROR. . .ENTRY EXCEEDS MAXIMUM LENGTH" j GOT0200 

206 A(I)=A 
210 NEXT 

215 1=1-4 

270 CLS: PRINT"END OF BATCH. .. MEMORY CONTAINS ";I;" RECORDS" : 1 1 = 1 
225 ©L0AD2 

MODULE 4 

220 PR I NT "REMOVE PROGRAM WAFER NOW" 

225 G0SUB300: IF I =0THEN225EL3EPRINT"THANK YOU" 

276 -RirJT" INSERT DATA WAFER NOW" 

227 G0SHB300: IFI =1THEN227ELSEPRINT"THANK YOU" 

230 INPUVHOW MANY RECORDS ARE THERE ON ESF WAFER"; II 

235 X*="": INPUT"PRESS < ENTER) WHEN READY TO LOAD DATA " ; X* 
2MA ©0PEN1 

240 FOR I=1T0IISTEP4 

250 '3 1 NPUTA (I),A(I+l),A(I+2>,A(I+3) 

255 PRINTA( I ) : PRINTA( 1+1 ) : PRINTA( 1+2) :PRINTA( 1+3) 
260 NEXT 

265 ©CLOSE 

270 CLS .-PRINT "INPUT FROM ESF WAFER COMPLETE" 

275 PRINT"REMOVE DATA WAFER NOW" 

2/6 G0SUB300: IFI^0THEN276ELSEPRINT"THANK YOU" 

277 PRINT" INSERT PROGRAM WAFER NOW" 

278 C0bUB300:IFI=lTHEN276ELSEPRINT"THANK YOU" 
280 ©L0AD2 

300 [*INP<240)ANm : rftiirn 

MODULE 5 
280 CLS 

2V0 PRINT"CONTENTS OF MEMORY" 
300 FOR I=1T0100 

310 PRINT "("j;; ")":PRINT A( I ) : IFA( I ) =""THEN330 

^20 IFI=80RI = 160RI=240RI=320RI=400RI=480RI=560RI=640RI=720RI=800RI=880RI=96THENF 
GRT*=1T0250: NEXTT* 
325 NEXTI 

330 f RINT "CONTENTS OF MEMORY READ" : INPUT "PRESS <ENTER) TO CONTINUE "; X.-CLS 
340 ©L0AD2 

MODULE 6 
3-40 CL8« PRINT"MEMORY EDIT" : INPUT"WHICH LINE NO DO YOU REGUIRE"rI 

?a?m*p£T^ LINE UNDER RE ^IEW ";STRINC*(10,92):PRINT" " 

,A(1):PKINT IF AMENDMENT REQUIRED RE-TYPE LINE. .. OTHERWISE HIT (ENTER) 
HIT (ENTER) TO VIEW THE NEXT LINE IN THE BUFFER 
TYI -t & ENTER 'EXIT TO RETURN TO MENU": INPUT A(I) 

351 Z=0: INPUT Z*;Z=VAL(Z*) 

352 'FZ$ = "EXIT"THENZ$^"":G0T0500 

353 IFZ=OTHEN I = 1+1 : G0T0350 
3'"1 IFZOOTHEN I = Z:GOT0350 
500 ©L0AD2 
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MODULE 7 

360 F'RINT"REMGVE PROGRAM WAFER" 

361 G0SUB450: IFI =0THEN361ELSEPRINT"THANK YOU" 
36:- PRINT H IN8ERT DATA WAFER" 

363 G0SUB4S0: 1 FI =1THEN363ELSEPR INT" THANK YOU" 

364 SOPENl 

370 FOR I=1T0100STEP4 

380 :2PRINTA(I > • A( I + i > , A( 1+2) , A( 1+3) 

385 PRINTAd ):PRINTA( I+1):PRINTA< 1+2) J PRINTA( 1+3 ) 

3V0 IF A(I)=""THEN405 

400 NEXT 

405 1=1-4 

406 eCLOSE 

410 PR I NT "RECORDING COMPLETE. .. THERE ARE " ; I ; " RECORDS ON WAFER" : G0T0500 

450 I = INP( 240 )ANDls RETURN 

500 PR I NT" REMOVE DATA WAFER" 

505 G0SUB450: IFI =0THEN505ELSEPRINT"THANK YOU" 

510 PRINT" INSERT PROGRAM WAFER" 

515 G0SUB450dFI = lTHEN515ELSEPRINT"THANK YOU" 

520 0LUAD2 

MODULE 8 

480 F1$="DATE REF NO DETAILS TOTAL... A/C NO DEBIT. .. CREDIT. , "i F3* = " 

££&££• ££"tF4*a 
"£»£££» £££.££~ M 

490 INPUT "< ENTER) "i GO 

500 PR I NT: PRINT: PR I NT" * * * JOURNALS AVAILABLE * * *" 

510 TRINT"* 1 * F'RINTOUT OF MEMORY" 

520 PRINT"* 2 * CP CASH PAYMENTS JOURNAL" 

530 PRINT"* 3 # CR CASH RECEIVED JOURNAL" 

540 PRINT"* 4 * GJ GENERAL JOURNAL" 

550 PRINT"* 5 * SJ SALFS JOURNAL" 

560 PRINT"* 6 * RETURN TO MAIN MENU" 

5/0 x$=" :X$=INKEY$:X=VAL(X$): IFX*= " "THEN570 

580 ON X GUTO 590. 660. 660. 660. 660. 1500 

590 CLS: PR I NT "PRINTOUT OF MEMORY" 

600 FOR I=1T0100 

610 IFA(I)=""THEN640 

620 PRINT"<"; I; ")":PRINT A(I) 

630 [.PRINT" < "; I ?'■>"; " "IA(X> 

640 NEXT 

650 PR I NT "PRINTOUT COMPLETE" : LPR I NT "PRINTOUT COMPLETE" : G0T0500 

660 INPUT" IS THE LINEPRINTER REQUIRED (Y/N)";P* 

6*.F [FP«r<)"Y" AND P*<>"N" THEN660 

670 INPUT "WHICH DATE DO VOU REQUIRE " ; E$ 

680 G0SUB900 

690 FOR I-1T0100 

70t.) IF A< I)=""THEN780 

710 IF E*< >LEKT*(A<I),6> AND KASOMID* ( A ( I ) , 40. 2) THEN780 

720 PRINTAd): lFP*="N"THEN750 

730 IFP*="Y"T:iEN LPR I NT A(I) 

750 DA*=hID*(A(l >#3i»a2;LiAfc^VAL(riA$):DGfc = DGfc+DA£ 

760 DR*=MIu$(A( I )»47»8) :ORL=VAL(DR$) : DT£=DTfc+DRfc 

770 CR*=MID*(A( I ) , 55. 8) t CR£= VAL (CR* ) J CT£=CT£+CR£l BL£=BL£+DR£-CR£ 

780 NEXT 

790 PRINT E*»" TOTALS"; : PRINTTAB (31 )USINGF4$; DGfc; : PRINTTAB(47 )USINCF3?>; BTti; C? 

800 IFP*="Y"THEN LPRINT E$;" TOTALS" f : LPRINTTAB< 31 ) USINGF4*; DGfc; : LPRINTTAE 

USINGF3*fDT£fCT£ 

810 DGL=0:DTL=0:CT£=0: GOTO 490 

8:-.) INPUT" IS THE PRINTER REQUIRED (Y/N) " ; P* 

830 IFP*<>"Y" AND P$()"N" THEN820 ELSE RETURN 

900 ON X-l GOT0910. 940,960*980 

910 CLS: PRINT"CASH PAYMENTS JOURNAL FOR (DATE) "; E*: PRINT Fl* 

920 IF F-*="Y"THEN LPRINT"CASH PAYMENTS JOURNAL FOR (DATE >"| E$: LPRINT Fl$ 

925 KA$ = "CP":i;0TO10OO 

940 CLS; PR I NT "CASH RECEIVED JOURNAL FOR (DATE )" i E*: PRINT Fl* 

950 IFF$="Y"THEN LPRINT"CA3H RECEIVED JOURNAL FOR (DATE) "; E*s LPRINT F1S 

955 KA*="CR":GOT01000 

960 CLS:PRINT"GENEFAL JOURNAL FOR ( DATE) " ; E$: PRINTF1S 

97u IFP* = "Y"THEN LPR I NT "GENERAL JOURNAL FOR (DATE ) " ; E*: LPRINTF1* 

975 KA$="GJ":GOT01000 

980 CLS: PR I NT "SALES JOURNAL FOR (DATE ) " ; E*s PRINTF1* 

990 IFP«="Y"THEN LPRINT'SAI.ES JOURNAL FOR ( DATE) " ; E*: LPRINTF1$ 

995 KA*="SJ" 

1000 RETURN 

15<X> 8L0AD2 
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MODULE 9 

800 Goroioio 

820 INPUT" IS THE PRINTER REQUIRED (Y/N) "tPl 
830 IFP*<>"Y" AND P*<>"N" THEN820 ELSE RETURN 

101 CLS 

1011 F4*="fc, i fcfci MJ.. fcfc- " 

1020 PRINT"* * * LEDGER BALANCE OPTIONS * * *" 

1030 PRINT'* 1 * DISSECTION SUMMARY THIS BATCH" 

104 PRINT"* 2 * RETURN TO MAIN MENU" 

1080 X*="":X*=INKEY*: X = VAL<;X*): IF X$=" "THEN1080 

1090 ON X GOTO 1100,1500 

1095 G03UB820 

1100 FOR J=1V0100:LB(J)=0:NEXTJ 

1110 FOR I=1TD100 

1120 J=VAL(MID*(A(I),42,2) ) : L1=VAL (MID*( A ( I ) , 47, 8) ) : L2=VAL(MID*( A( I ) i 55, 8 ) ) : L«L1 

-L2jI.B(J)=LB(J)+L:LT(J)=LT(J)+LB(J)jL=0:L1=0:L2=0 

1150 PRINT"D:nSECTION TOTALS" : IFP* = " Y"T: <ENLPRINT"DISSECTION TOTALS" 

1.160 FOR J = 1T0100 

1170 IF LB(J)=OTHEN1200 

1 irtO PRINTJ, :PRINTTAB(16)USINGF4*;LB(J> : L=L+LB< J> 

1190 IFP*="Y"THENLPRINTCHR*(15)J, , : LPRINTTAB(48 )U3INGF4*{ LB( J) : LPRINTCHR*( 14) 

1200 NEXT J 

1210 PR I NT "TOTAL"; : I RINTTAB ( 16 )US INGF4$; L 

J 220 IFP$ = "Y"TUENLPf<INT"TOT/.L", : LPRINTTAB <48)USINGF4$; L 

1230 L=0:PHINT'END OF RUN" 

1240 IFP*="Y"THENLPKINT"END OF RUN" 

1250 INPUT"PRESS ENTER TO CONTINUE "s X : G0T01010 

1500 6L0AD2 



MODULE 10 

1760 CLS: PRINT: PRINT"LINEPRINT£R UTILITY 

(TYPE HEADINGS OR NOTES AS REQUIRED - TYPE 'EXIT' TO RETURN TO 

THE MAIN MENU) " 

1270 M»-""l INPUTM*: I FM$="£XIT"THEN1500 

1 280 PR I NTH* : LPR I NTM* 

1290 GOTO1270 

1500 SLGAD2 

MODULE 11 

1300 PRINT" * «'* LEDGER ACCOUNTS * * *" 

1305 F1*="DATE REF NO DETAILS TOTAL. .. A/C NO DEBIT. . .CREDIT. .": F4$=" 

I, exit &&£•££-" 

1310 INPUT" IS THE LINEPR INTER REQUIRED (Y/N) " ; P* 

1320 IFP*< )"Y"ANDP*( > "N"THEN1310 

1330 INPU'fWHICH ACCOUNT NO DO YOU REQUIRE ? 

(INTER '999' TO EXIT AND RETURN TO MENU) ";N 

1350 IFN>=1ANGN<=100G0T01370 

1360 IFN=999TH£N1600ELSE1330 

1370 PRINTF1*: I FP*=" Y"THENLPRINTF1* 

1380 F0RI=1T0100: I FA ( I ) =" "THEN1440 

1.390 IFN< >VAL(MID*(A( I), 42, 2) )THEN1440 

1400 PRINTA( I ) : IFP*=" Y"LPRINTA( I ) 

1420 DRfc=VAL(MID*(A(I)#47.8)):CRe=VAL(M;D*(A<I),55,8))!DTfc=DTfc+DRe:CTfc=CTfc+CRfc:G 

T£bGT£+DR£-CR£ 

1440 NEXT 

14R0 PRINT"TOTALS "I : PRINTTAB(38)USINGF4*; DTfcJ CT£ 

1460 I FP* = "Y" LPR INT" TOTALS "f I LPRINTTAB ( 38 )USING F4*»DTfc;CTfc 

1470 PR I NT "BALANCE OF ACCOUNT " i I PR I NTT ABC 38)USINGF4*; GTfc 

1480 IFP*="Y"LPRINT"BALANCE OF ACCOUNT "it LPRINTTAB (38)USING F4*;GT£ 

1490 GTL=Os DTfc=OsCTfc=0: PRINT: PRINT: IFP*=" Y"LPRINT" ":LPRINT" " 
1500 G0TO1330 
1600 ©LUAD2 
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***** NEXT MONTH'S ISSUE ***** 
Next month's issue will contain at least the following programs: 

ESCAPEE (LI) THE WORLD (LI or L2) 

Interpret the computers clues accurately This program proves that you can get 

and you can find the escapee hidden reasonable graphics on the '80. It draws 

behind one of the pillars. a realistic representation of the world. 



CUP 80 (LI or L2) 

A simple simulation of a multi-horse race 
which demonstrates careful use of the '80 
Random generator. LI and L2 versions 
will be published. 

LOTTO PREDICTOR (L2) 

Combines the laws of statistical probability w 
with the rules of chance and probability 
to predict next week;s draw. You build up a 
a data b-se, on disk or cassette, week by 
week and improve your chances. 



KB FIX 

Especially with System 80 readers in mind, 
who may be experiencing difficulty in 
extracting copies of KB FIX from the 
opposition, here is a keyboard debounce 
routine, in BASIC which, on execution, 
loads a machine language routine into high 
memory which there permanently until switch 
-off. With to modify it to fit different 
memory size machines. 

TRIANGLES 

This program will be of interest to 

Architects, Engineers and Surveyors. Given 

three characteristics of ANY triangle 

(not Just right angled triangles), it 

will calculate all the other characteristics 



Plus all the usual articles, letters, news etc.. 



Continued from P. 10 (Chess War) 

I have not yet made mention of another chess cassette program available for micro- computers in 
Australia, Microchess. This is also a big seller and as it costs about the same as Sargon , many 
readers may be unsure of their choice. I have tested Microchess 1.5 and 2.0 and I must advise 
readers that Sargon is the market leader. I would rate Microchess 2.0 at about 1300 at the 3 
minute level - slightly inferior to Voice Challenger. Anybody contemplating adding a Chess 
cassette program to their library would be well advised to purchase Sargon 2.5 or wait, a little 
longer if they cannot obtain it at present. 
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***** CASSETTE EDITION INDEX ***** 
Level 1 programs are on Side 1 (not suitable for System 80 computers); Level II programs are on 
Side 2. Each program is recorded twice in succession. Level II programs have been recorded at 
high level to ensure satisfactory loading on System 80's. TRS-80 Users will need to load these 
programs at a much lower volume setting than normal, even if the XRX-III loader board is fitted. 



SIDE 1 



SIDE 1 



I.D. 



DEC BIN HEX 



JET BOAT 



Ll/UK 



L1/14K 



APPROX. START POSITION 
CTR-Ul CTR-80 SYS 80 



2k 


15 


10 


97 


60 


k2 


202 


125 


87 


250 


155 


108 



SIDE 2 



ADD HEX ADD 



BGAME 



CALENDAR 



ANDROID SHOOTMAN 



L2/16K 



L2/16K 



L2AK 



L2/16K 



32 


20 


Ik 


130 


80 


56 


218 


135 


9k 


266 


165 


115 


315 


195 


135 


332 


206 


1U3 


355 


220 


153 


382 


237 


165 



Single copies of the Issue 9 cassette may be purchased by SUBSCRIBERS for $3-50. The combined 
magazine and cassette subscription rate is $60.00 for 12 issues. 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO. ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR O&DER WITHIN 7 DAYS ' 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* sub/ect to availability 




>4i 



to CONQUEST ELECTRONICS Pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

Q7Y. CAT NO DESC. 



ADV. PRICE 



SUB TOTAL 
LESS 10* 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



P/Code 



CON0U&T ELECTRONS 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



LEVEL II ROM 
REFERENCE MANUAL 

by Edwin Paay 
Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how tc use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 



